home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 573 / 3dlab101 / binfiles.pas < prev    next >
Pascal/Delphi Source File  |  1994-03-03  |  2KB  |  63 lines
  1. {────────────────────────────────────────────────────────────────────────────}
  2. {───This Unit contains (binary) file handling procedures.────────────────────}
  3. {────────────────────────────────────────────────────────────────────────────}
  4. {───( C ) Copyright 1993 By Kimmo Fredriksson.───────────────────────────────}
  5. {────────────────────────────────────────────────────────────────────────────}
  6.  
  7. {$A+   Word Alignment                              }
  8. {$B-   Short-circuit Boolean expression evaluation }
  9. {$D-   Debug information off                       }
  10. {$E-   Disable 80x87 run-time library              }
  11. {$F-   Force Far Calls off                         }
  12. {$G+   80286 instructions                          }
  13. {$I-   I/O checking off                            }
  14. {$L-   Local Symbols off                           }
  15. {$N-   Calc reals by software                      }
  16. {$O-   Overlays not allowed                        }
  17. {$P-   Open string parameters disabled             }
  18. {$Q-   Overflow Check off                          }
  19. {$R-   Range-checking off               }
  20. {$S-   Stack-checking off               }
  21. {$T-   Type-Check pointers off                     }
  22. {$V-   Strict Var-String off               }
  23. {$X+   Extended Syntax on               }
  24.  
  25. UNIT    BinFiles;
  26.  
  27.     INTERFACE
  28.  
  29.  
  30. FUNCTION  FOpenRead( VAR f : FILE; CONST fn : STRING ) : Boolean;
  31. FUNCTION  FOpenWrite( VAR f : FILE; CONST fn : STRING ) : Boolean;
  32.  
  33.  
  34.     IMPLEMENTATION
  35.  
  36.  
  37. {─Assign file f to filename fn, and try to open that file for reading────────}
  38.  
  39. FUNCTION FOpenRead( VAR f : FILE; CONST fn : STRING ) : Boolean;
  40. VAR IOErr : Integer;
  41. BEGIN
  42.   Assign( f, fn );
  43.   ReSet( f, 1 );
  44.   IOErr := IOResult;
  45.   FOpenRead := IOErr = 0
  46. END;
  47.  
  48.  
  49. {─Assign file f to filename fn, and try to open that file for writing────────}
  50.  
  51. FUNCTION FOpenWrite( VAR f : FILE; CONST fn : STRING ) : Boolean;
  52. VAR IOErr : Integer;
  53. BEGIN
  54.   Assign( f, fn );
  55.   ReWrite( f, 1 );
  56.   IOErr := IOResult;
  57.   FOpenWrite := IOErr = 0
  58. END;
  59.  
  60. {    INITIALIZATION    }
  61.  
  62. END.
  63.