home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / cddk9605.zip / HEADERS.ARJ / RAFS.INT < prev    next >
Text File  |  1996-05-17  |  1KB  |  39 lines
  1.  
  2. UNIT RAFs;
  3.  
  4. { UNDOCUMENTED UNIT FOR INTERNAL USE ONLY -- USE AT YOUR OWN RISK }
  5.  
  6. {$B-} { . . . . . . . . . . . . . . . . . . . . Shortcut boolean evaluation }
  7. {$F+} { . . . . . . . . . . . . . . . . . . . .  Force far calls for safety }
  8. {$I-} { . . . . . . . . . . . . . . . . . . . Disable input/output checking }
  9. {$O+} { . . . . . . . . . . . . . . . . . . Allow this unit to be overlayed }
  10. {$Q-} { . . . . . . . . . . . . . .  Do not generate overflow-checking code }
  11. {$R-} { . . . . . . . . . . . . . . . . Do not generate range-checking code }
  12. {$S-} { . . . . . . . . . . . . . . . . Do not generate stack-checking code }
  13. {$X+} { . . . . . . . . . . . Extended syntax for pChars and function calls }
  14.  
  15. INTERFACE
  16.  
  17. TYPE
  18.  
  19.   { Random Access File Object }
  20.  
  21.   RAF_Type = OBJECT
  22.     Count      : Word;
  23.     Current    : Word;
  24.     Data       : Pointer;
  25.     ErrorHalt  : Boolean;
  26.     IOResult   : Word;
  27.     RAF        : FILE;
  28.     Size       : Word;
  29.     PROCEDURE Close;
  30.     FUNCTION  EOF:Boolean;
  31.     FUNCTION  FileSize:LongInt;
  32.     PROCEDURE Get(Idx:Word);
  33.     PROCEDURE Next;
  34.     PROCEDURE Put(Idx:Word);
  35.     PROCEDURE Reset(FileSpec:pChar; Sz:Word; Rec:Pointer; FM:Byte; EH:Boolean);
  36.     PROCEDURE Rewrite(FileSpec:pChar; Sz:Word; Rec:pointer; FM:Byte; EH:Boolean);
  37.     END;
  38.  
  39.