home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / minigen.zip / EXIST.INC < prev    next >
Text File  |  1987-12-08  |  172b  |  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}