Component not support unicode
Posted: Wed Aug 06, 2014 4:28 pm
hi
Why can't parse the code , usingTdiOMG_O19_26?
var
MsgOMGO19: TdiOMG_O19_26;
MsgStr:string;
begin
MsgOMGO19 := TdiOMG_O19_26.Create;
MsgStr:= Memo2.Text;
MsgOMGO19.AsString := MsgStr;
MsgOMGO19.ORDER[0].PRIOR_RESULT.PATIENT_PRIOR.PID.PatientID.IDNumber.AsString;//null?
//or MsgOMGO19.PATIENT.PID.PatientID.IDNumber.AsString;
end;
==================eg.=======================
Memo2.Text := 'MSH|^~\&|CIS||LWUS||20140620161939||OMG^O19|CIS_43500585|P|2.4';
Memo2.Lines.Append('PID||0000151854|^^^^PatientNO~0000151854^^^^IDCard~210222198004242336^^^^IdentifyNO||王玮||19800424|M|||||^^^^^^18676680424');
Memo2.Lines.Append('PV1||O|^^^0302^消化内科门诊||||003448||||||3|||||02|111220395|||||||||||||||||||||||||20140620161955');
Memo2.Lines.Append('ORC|NW|3492376|||1||||20140620161939|003069||003069^叶春福|||20140620161906||0302||||0302');
Memo2.Lines.Append('OBR||||F00000086906^电子结肠镜_^71||||||||||||||||||||3212#内镜中心');
Memo2.Lines.Append('OBX||ST|SIGN||脐周腹部胀痛 半年 伴腹泻，剑突下有压痛。肝胆脾不大');
Memo2.Lines.Append('OBX||ST|DIAG||慢性结肠炎');
Memo2.Lines.Append('OBX||ST|SITE||电子结肠镜');
Memo2.Lines.Append('BLG|||1');
Why can't parse the code , usingTdiOMG_O19_26?
var
MsgOMGO19: TdiOMG_O19_26;
MsgStr:string;
begin
MsgOMGO19 := TdiOMG_O19_26.Create;
MsgStr:= Memo2.Text;
MsgOMGO19.AsString := MsgStr;
MsgOMGO19.ORDER[0].PRIOR_RESULT.PATIENT_PRIOR.PID.PatientID.IDNumber.AsString;//null?
//or MsgOMGO19.PATIENT.PID.PatientID.IDNumber.AsString;
end;
==================eg.=======================
Memo2.Text := 'MSH|^~\&|CIS||LWUS||20140620161939||OMG^O19|CIS_43500585|P|2.4';
Memo2.Lines.Append('PID||0000151854|^^^^PatientNO~0000151854^^^^IDCard~210222198004242336^^^^IdentifyNO||王玮||19800424|M|||||^^^^^^18676680424');
Memo2.Lines.Append('PV1||O|^^^0302^消化内科门诊||||003448||||||3|||||02|111220395|||||||||||||||||||||||||20140620161955');
Memo2.Lines.Append('ORC|NW|3492376|||1||||20140620161939|003069||003069^叶春福|||20140620161906||0302||||0302');
Memo2.Lines.Append('OBR||||F00000086906^电子结肠镜_^71||||||||||||||||||||3212#内镜中心');
Memo2.Lines.Append('OBX||ST|SIGN||脐周腹部胀痛 半年 伴腹泻，剑突下有压痛。肝胆脾不大');
Memo2.Lines.Append('OBX||ST|DIAG||慢性结肠炎');
Memo2.Lines.Append('OBX||ST|SITE||电子结肠镜');
Memo2.Lines.Append('BLG|||1');