Zahl in Textdatei speichern, in einer Konsolenapplikation

[Klaus01]

so würde es auch gehen

Delphi-Quellcode:

var
  TFile : TextFile;
  i : Integer;
begin
  i:=8;
  AssignFile(Tfile,'DeinDateiName');
  {$I-}
    Rewrite(TFile);      // öffne Datei zum Schreiben
  {$I+}
  if ioResult = 0 then
    begin
      Writeln(TFile,i);    // Schreibe Zeile in Datei
      FileClose(Tfile);    // schließe Datei
      Append(TFile);       // öffnet Datei zum Anhängen
      Writeln(TFile,i+1);  // hängt eine Zeile an das Ende der Datei
    end;
end;

Grüße
Klaus