Zahl in Textdatei speichern, in einer Konsolenapplikation

[cruso]

Hi!

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


MfG
Cruso

[klaus.meyer]

ich würde es so machen:

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

[fkerber]

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

[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

[turboPASCAL]

:gruebel: Datei öffnen, schreiben, schliessen, öffnen, schreiben, schliessen ?

Geht doch auch gleich mit Append... :gruebel: