t_id
845
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
var outfile:text; err:boolean; begin writeln('there should be three errors below:'); assign(outfile,'notexist.fil'); {$i-} Append(outfile); //rewrite(outfile); {$i+} //write(ioresult); // 2 file not found if IOResult <> 0 then writeln('err append') else err:=true; {$i-} writeln(outfile,'----------------------'); {$i+} //write(ioresult); // 103 file not open if IOResult <> 0 then writeln('err write') else err:=true; {$i-} close(outfile); {$i+} //write(ioresult); // 103 file not open if IOResult <> 0 then writeln('err close') else err:=true; if err then halt(1) else writeln('success'); end.