[Lazarus] How to catch an unhandled exception? [FIXED - but there is an FPC bug here]

[Gabor Boros]

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