direct assignations , invalid pointer
Posted: Tue Mar 26, 2019 10:38 am
Hello everybody,
this code works fine in versión 1.7.3
but in versions greater than 1.7.3 , it occurs an exception “Invalid pointer operation”
in "msgRequest.PATIENT.PID.AsString:=msgResponse.RESPONSE.PATIENT.PID.AsString",
we have trying with 1.7.9 and 1.7.10, it seem that any direct assignation gets exception
¿ How can we do these direct assignations ? with some type of cast ?
We are using professional edition.
Thanks for your help.
this code works fine in versión 1.7.3
Code: Select all
var
msgRequest: TbsOML_O21_25;
msgPro: TbsORL_O22_25;
begin
msgRequest := TbsOML_O21_25.Create;
msgRequest.AsHL7 := Memo1.Lines.Text;
msgPro := TbsORL_O22_25.Create;
memo2.Lines.Text:= msgRequest.AsHL7;
msgRequest.PATIENT.PID.AsString:=msgResponse.RESPONSE.PATIENT.PID.AsString;
end;
but in versions greater than 1.7.3 , it occurs an exception “Invalid pointer operation”
in "msgRequest.PATIENT.PID.AsString:=msgResponse.RESPONSE.PATIENT.PID.AsString",
we have trying with 1.7.9 and 1.7.10, it seem that any direct assignation gets exception
¿ How can we do these direct assignations ? with some type of cast ?
We are using professional edition.
Thanks for your help.