home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / tricks / openfile.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-14  |  1.4 KB  |  40 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     OPENFILE.PAS                       *)
  3. (*  (C) 1989 Torsten Priebe, Thorsten Mietzel & TOOLBOX   *)
  4. (* ------------------------------------------------------ *)
  5. UNIT OpenFile;
  6.  
  7. INTERFACE
  8.  
  9. USES Dos;
  10.  
  11.   PROCEDURE OpenRead(VAR F : FILE; RecSize : WORD);
  12.  
  13. IMPLEMENTATION
  14.  
  15.   PROCEDURE OpenRead(VAR F : FILE; RecSize : WORD);
  16.   VAR
  17.     FRec: FileRec ABSOLUTE F;
  18.                             { In Unit Dos definierter Typ: }
  19.              { Struktur einer untypisierten Dateivariablen }
  20.     Regs: Registers;
  21.   BEGIN
  22.     Regs.AH := $3D;           { Funktion 3DH: Datei öffnen }
  23.     Regs.AL := 0;                   { Zugriffsmodus: Lesen }
  24.     Regs.DS := Seg(FRec.Name);  { Dateiname aus FRec holen }
  25.     Regs.DX := Ofs(FRec.Name);
  26.     MsDos(Regs);                        { öffnet die Datei }
  27.     IF (Regs.Flags AND FCarry) <> 0 THEN
  28.       DosError := Regs.AX
  29.     ELSE BEGIN
  30.       DosError := 0;
  31.       FRec.Handle := Regs.AX;           { DOS-Handle in AX }
  32.       FRec.Mode:=FMInOut; { Turbo Pascal legt intern fest, }
  33.                   { ob Datei geöffnet oder geschlossen ist }
  34.       FRec.RecSize := RecSize;               { Recordgröße }
  35.     END;
  36.   END;
  37.  
  38. END.
  39. (* ------------------------------------------------------ *)
  40. (*                 Ende von OPENFILE.PAS                  *)