blob: 2ded7418177fceb1c3d05b9fb7659fc7f8fa758e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
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.
|
