fpcdocs/sysutex/ex38.pp


1
2
3
4
5
6
7
8
9
10

Program Example38;

{ This program demonstrates the FileExists function }

Uses sysutils;

Begin
  If FileExists(ParamStr(0)) Then
    Writeln ('All is well, I seem to exist.');
End.