home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / rainbow / msdos / misc / messages.lzh / EXIST.INC next >
Text File  |  1984-08-31  |  384b  |  17 lines
  1.    Function Exist(FileName : STR80): Boolean;
  2.       { Verify that file exists }
  3.       Var
  4.          Fil : File;
  5.       Begin
  6.         Assign(Fil, FileName);
  7.         {$I-}
  8.         Reset(Fil);
  9.         {$I+}
  10.         Exist := (IOResult = 0);
  11.         If IOResult = 0
  12.            Then Close(Fil);
  13.  
  14.         End; { Function Exist }
  15.  
  16.  
  17.