t_id
425
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949266310 | 1015553 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0224.pp } { I/O-Error generation in readln can't be switched off OK 0.99.11 (PFV) } var f:text; i:integer; begin assign(f,'bug0224.txt'); rewrite(f); write(f,' '); reset(f); {$I-} readln(f,i); { you can't avoid run-time error generation } {$I+} if IOResult<>0 then writeln('error...'); {$I-} close(f); erase(f); {$I+} if IOResult<>0 then; end.