blob: 6a537ad6cb790c60355c2b826e13a60ae64bc07f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example35;
{ Program to demonstrate the IOResult function. }
Var F : text;
begin
Assign (f,paramstr(1));
{$i-}
Reset (f);
{$i+}
If IOresult<>0 then
writeln ('File ',paramstr(1),' doesn''t exist')
else
writeln ('File ',paramstr(1),' exists');
end.
|
