2018. 03. 09. 12:09 keltezéssel, Tony Whyman via Lazarus írta:
Finally, knowing all this, I go back to Gabor's program and add the line
(again shown in context):
repeat
SQR:=SM.Query(nil,SRB);
for i:=0 to SQR.GetCount-1 do
begin
case SQR[i].getItemType of isc_info_svc_line:begin
s:=SQR[i].getAsString;
end;
end;
if (s<>'') then WriteLn(s);
s := ''; {Line
added here}
end;
until (s='');
and guess what - bug goes away.
Confirmed. Executed the Debug and Release builds more than 100 times
without any exception.
Gabor
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus