blob: 459629396375e721d9e88a3f36abb9e8d2cb25eb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{%skiptarget=wince,os2,emx}
{%delfiles=blockwritetest.tmp}
var
f:file;
p:pointer;
i : integer;
begin
Assign(f,'blockwritetest.tmp');
{$I-}
Rewrite(f,1);
p:=nil;
BlockWrite(f,p^,12345);
Close(f);
Erase(f);
{$I+}
i:=ioresult;
writeln('IOResult: ',i);
if i=101 then
halt(1);
end.
|
