home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / EXISTS.INC < prev    next >
Encoding:
Text File  |  1988-02-20  |  307 b   |  20 lines
  1.  
  2. (*
  3.  * exists - return true if a file exists
  4.  *
  5.  * shs 14-feb-86, (rev. 21-Dec-87)
  6.  *
  7.  *)
  8.  
  9. function exists(name: anystring): boolean;
  10. var
  11.    DirInfo:     SearchRec;
  12.  
  13. begin
  14.    FindFirst(name,$21,DirInfo);
  15.    if (DosError <> 0) then
  16.       exists := false
  17.    else
  18.       exists := true;
  19. end;
  20.