Variablen in Textdateien speichern und abrufen

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

oder kurz und knapp.

Delphi-Quellcode:

Var Datei: File of Integer;
  Wert: Integer;

{speichern}
AssignFile(Datei, 'Datei.Name');
Rewrite(Datei);
Write(Datei, Wert);
CloseFile(Datei);

{lesen}
AssignFile(Datei, 'Datei.Name');
Reset(Datei);
Read(Datei, Wert);
CloseFile(Datei);

PS: kleiner bekommt keiner die Datei (nur 4 Byte)


Add:
Wenn es unbedingt eine Textdatei sein muß, geht das ähnlich:

Delphi-Quellcode:

Var Datei: TextFile;
  S: String;
  Wert: Integer;

{speichern}
AssignFile(Datei, 'Datei.Name');
Rewrite(Datei);
WriteLn(Datei, IntToStr(Wert));
CloseFile(Datei);

{lesen}
AssignFile(Datei, 'Datei.Name');
Reset(Datei);
ReadLn(Datei, S);
Wert := StrToInt(S);
CloseFile(Datei);

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif