home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MGTP4.ZIP / EXIST.INC < prev    next >
Encoding:
Text File  |  1987-12-08  |  172 b   |  11 lines
  1. Function Exist(FileName : Str12):Boolean;
  2. Var
  3.   Fil : File;
  4. Begin
  5. Assign(Fil,FileName);
  6. {$I-}
  7. Reset(Fil);
  8. Close(Fil);
  9. {$I+}
  10. Exist := (IOResult = 0);
  11. End; {Exist}