Hi!

Wisst ihr, wie ich eine Zahl in einer Konsolenapplikation in einer Textdatei abspeichern kann?


MfG
Cruso

ich würde es so machen:

zusammenfalten · markieren

Delphi-Quellcode:

uses ..., classes;

var temp: tstringlist;

begin

 temp := tstringlist.create;

 temp[0] := inttostr(8); // die 8 ist die zahl, die du speichern willst (variable)

 temp.savetofile('datei.txt');

end;

// edit: ist wahrscheinlich zu kompliziert

gruß

klaus

Hi!

Für das Arbeiten mit Stringlist empfehle ich dringend die Verwendung von Try ... Finally!
So kann man sicherstellen, dass da keine Speicherlöcher aufgerissen werden!


Ciao Frederic

so würde es auch gehen

zusammenfalten · markieren

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

Datei öffnen, schreiben, schliessen, öffnen, schreiben, schliessen ?

Geht doch auch gleich mit Append...