home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / toolbox / dateimod.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-21  |  1.5 KB  |  44 lines
  1. (* ------------------------------------------------- *)
  2. (*                  DATEIMOD.PAS                     *)
  3. (*     Öffnungscode für Dateien an Reset übergeben   *)
  4. (*        (C) 1990, 1992 Thomas Wolf & DMV-Verlag    *)
  5. (* ------------------------------------------------- *)
  6. PROGRAM DateiMod;
  7.  
  8. CONST
  9.   FMReadOnly   =  0;   { Zugriff: Nur Lesen           }
  10.   FMWriteOnly  =  1;   { Zugriff: Nur Schreiben       }
  11.   FMReadWrite  =  2;   { Zugriff: Lesen und Schreiben }
  12.  
  13. VAR
  14.   SaveFileMode : BYTE; { Sicherung des Dateimodus     }
  15.   Datei        : FILE; { Testdatei                    }
  16.  
  17.   PROCEDURE SetNextAccess(AccessCode : BYTE);
  18.   { Setzt die Variable FileMode auf den entsprechenden}
  19.   { Zugriffscode                                      }
  20.   BEGIN
  21.     SaveFileMode := FileMode;
  22.     IF (AccessCode >= 0) AND (AccessCode <= 2) THEN
  23.       FileMode := AccessCode;
  24.   END {SetNextAccess};
  25.  
  26.   PROCEDURE RestoreAccess;
  27.   { Setzt die Variable FileMode auf den vorherigen    }
  28.   { Zugriffscode zurück                               }
  29.   BEGIN
  30.     FileMode := SaveFileMode;
  31.   END {RestoreAccess};
  32.  
  33. BEGIN
  34.   WriteLn('FileMode - Test');
  35.   Assign(datei, 'DUMMY.PAS');
  36.             { irgendeine Datei mit Read-Only-Attribut }
  37.   SetNextAccess(FMReadOnly);
  38.   Reset(datei);  { Datei wird zum Nur-Lesen geöffnet  }
  39.   RestoreAccess;
  40.   Close(datei);
  41. END {DateiMod}.
  42. (* ------------------------------------------------- *)
  43. (*              Ende von DATEIMOD.PAS                *)
  44.