home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / EXIST.FUN < prev    next >
Encoding:
Text File  |  1986-04-24  |  1.2 KB  |  27 lines
  1. (********************************************************************)
  2. (* THIS FUNCTION WILL DETERMIN IF THE GIVEN FILE EXISTS             *)
  3. (* INPUT        : FILE-SPEC + FILE-NAME + FILE-EXTENSION            *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : BOOLEAN FILE EXISTS IF TRUE                       *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : ASSIGN , IOresult                                 *)
  8. (* ERRORS       : NONE                                              *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : FILES, DOES IT EXIST YES OR NO                    *)
  11. (* DOMAIN       : ARNO A. KARNER\PUBLIC               LEVEL : 000   *)
  12. (********************************************************************)
  13.  
  14. FUNCTION Exist                                ( FileSpec : String_80 )
  15.                                               : BOOLEAN ;
  16.    VAR
  17.       Fil : TEXT ;
  18.    BEGIN
  19.       IF IOresult <> 0 THEN WRITELN (' IO RESULT HOSED ALREADY ' ) ;
  20.       ASSIGN ( Fil , FileSpec ) ;
  21. {$I-}
  22.       RESET ( Fil )
  23. {$I+} ;
  24.       IF ( IOresult = 0 ) THEN Exist := TRUE ELSE Exist := FALSE ;
  25.       CLOSE (Fil) ;
  26.    END ;
  27.