Programmiersprache Pascal

Beispiele zur Arbeit mit Dateien

Erstellen einer neuen Datei bzw. Überschreiben einer vorhandenen Datei:

  PROGRAM write_file;

  VAR f: TEXT;

  BEGIN
    Assign(f, 'newfile.txt');
    Rewrite(f);
    Writeln(f, 'Eine neue Datei wird erzeugt ...');
    Close(f);
  END.
Das Programm behandelt eventuell auftretende Fehler nicht. 




Anfügen von Text an eine Textdatei:
  PROGRAM append_file;

  VAR f: TEXT;

  BEGIN
    Assign(f, 'text.txt');
    Append(f);
    Writeln(f, 'angefuegter Text');
    Close(f);
  END.




Ermittlung der Existenz einer Datei. Der Dateiname wird als 
Programmaufrufparameter angegeben.
  PROGRAM exist_file;

  FUNCTION file_exists(filename: STRING) : BOOLEAN;
  VAR f: FILE;
  BEGIN
    {$I-}
    Assign(f, filename);
    Reset(f);
    Close(f);
    {$I+}
    file_exists := (IOResult = 0) AND (filename <> '');
  END;

  BEGIN
    Write('Datei ', ParamStr(1), ' ');
    IF file_exists(ParamStr(1)) THEN 
      Writeln('existiert')
    ELSE
      Writeln('nicht gefunden');
  END.




Delphi


Analoge Funktion wie oben. Nutzung der Ausnahmebehandlung
  PROGRAM exist_file;
  USES WinCrt, SysUtils;

  FUNCTION file_exists(filename: STRING) : BOOLEAN;
  VAR f: FILE;
  BEGIN
    file_exists := (filename <> '');
    Assign(f, filename);
    TRY
      Reset(f);
      Close(f);
    EXCEPT
      ON Exception DO
        file_exists := FALSE;
    END;
  END;

  BEGIN
    Write('Datei ', ParamStr(1), ' ');
    IF file_exists(ParamStr(1)) THEN 
      Writeln('existiert')
    ELSE
      Writeln('nicht gefunden');
  END.










  
  P. Böhme, 05.09.1996