t_id
532
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525141884 | 948134 | True | False | Successfully run |
Record count: 1
{ show a problem with IOCHECK !! inside reset(file) we call reset(file,longint) but we also emit a call to iocheck after and this is wrong !! PM } program getret; uses dos; var ppfile : file; begin assign(ppfile,'this_file_probably_does_not_exist&~"#'); {$I-} reset(ppfile,1); if ioresult=0 then begin {$I+} close(ppfile); end else writeln('the file does not exist') ; {$I-} reset(ppfile); if ioresult=0 then begin {$I+} close(ppfile); end else writeln('the file does not exist') ; end.