t_id
1206
t_adddate
2003/11/30
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=46 Percentage= 92.00
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.