blob: 90a9ca1a43ff1b0b3f55d6de9dede1ee00bb8a08 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{$MODE objfpc}
program FileExc;
uses SysUtils, Classes;
var
f: TFileStream;
begin
try
f := TFileStream.Create('a nonexistent file', fmOpenRead);
except
on e: Exception do begin
f.Free;
halt(0);
end;
end;
writeln('Error');
halt(1);
end.
|
