t_id
1206
t_adddate
2003/11/30
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565142779 | 954639 | True | False | Successfully run |
Record count: 1
var f:file; p:pointer; i : integer; begin Assign(f,'blockwritetest.tmp'); {$I-} Rewrite(f,1); p:=nil; BlockWrite(f,p^,12345); Close(f); {$I+} i:=ioresult; writeln('IOResult: ',i); if i=101 then halt(1); end.