blob: b8118403eb66c32d15c49709c5627be0d0c4cb3e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{$ifdef fpc}{$mode objfpc}{$endif}
uses
sysutils;
var ErrorFileHandle : Text;
begin
//No Assignfile
Writeln('----');
try
CloseFile(ErrorFileHandle);
except
on E: Exception
do Writeln('ExceptionMessage: '+e.Message);
end;
Writeln('----');
end.
|
