TdiRSP_K11

[aceM]

Hi,
I resumed my product evaluation (after many months).

I got an AV error using TdiRSP_K11_26 (25 and 251) trying to assign an HL7 msg like this:

Code: Select all

var RSP     : TdiRSP_K11_26;
begin
  RSP := TdiRSP_K11_26.Create;
  try
    RSP.AsString := 'MSH|^~\&|LAB|LAB|X|X|20140320173106||RSP^SLP^RSP_K11|9|P|2.6' + #13 +
                           'MSA|AA|201423-3|OK' + #13 +
                           'QAK|SLP||OK' + #13 +
                           'QPD|SLP|201423-3||XXXXXXX||';
  finally
    RSP.Free;
  end;
end;

If there's a not empty value on QPD > 3 (QPD-4, QPD-5 and so on) (XXXXXXX in the example)

Code: Select all

RSP.AsString

raises an AV.

Regards.