home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / testfile.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  317 b   |  18 lines
  1. unit TestFile;
  2.  
  3. interface
  4. uses DOS;
  5. function TestFileExist( FileName: string) :boolean;
  6.  
  7. implementation
  8.  
  9. function TestFileExist;
  10. var SRec:           SearchRec;
  11. begin
  12. TestFileExist := true;
  13. FindFirst( FileName, $3f, SRec); (* $3f = anyfile *)
  14. if DosError <> 0 then TestFileExist := false;
  15. end;
  16.  
  17. end.
  18.