t_id
700
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022769858 | 1027385 | True | False | Successfully run |
Record count: 1
{$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.