direct assignations , invalid pointer

[ppb]

Hello everybody,

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.

[admin]

Hi,

This problem fixed with version 1.7.11.

Best Regards.