t_id
700
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$MODE objfpc} program FileExc; uses SysUtils, Classes; var f: TFileStream; begin try f := TFileStream.Create('a nonexistent file', fmOpenRead); except on e: Exception do begin f.Free; halt(0); end; end; writeln('Error'); halt(1); end.