Zahl in Datei speichern und auslesen!

[jAcK oRsEn]

Hi,



wie kann ich eine Zahl in eine Datei speichern und diese später wieder auslesen?

Die Zahl steht in einer Variable die id heißt!

[Filou]

Hallo Jack,

Delphi-Quellcode:

procedure Schreiben(filename:string);
var 
  F:FileText;
begin
  AssignFile(F, filename);
  Rewrite(F);
  Writeln(F,id);
  CloseFile(F);
end;

procedure Lesen(filename:string);
var
  F:FileText;
begin
  AssignFile(F, filename);
  Reset(F);
  Readln(F,id);
  CloseFile(F);
end;

//Der Aufruf geschieht folgender Maßen
Schreiben('datei.txt');
Lesen('datei.txt');

Der Quelltext enthält jetzt keine Fehlerbehandlung.

cu

[jAcK oRsEn]

was ist denn f: FileText; ???

[fred.reichbier]

Wie wärs damit:

Delphi-Quellcode:

procedure Speichern(dateiname: String);
var s: TStringList;
begin
s := TStringList.Create;
s.Add(Inttostr(id));
s.SaveToFile(dateiname);
s.Free;
end;

procedure Laden(dateiname: String);
var s: TStringList;
begin
s := TStringList.Create;
s.LoadFromFile(dateiname);
id := s[0];
s.Free;
end;

MfG,
fred

[mirage228]

Zitat von jAcK oRsEn:

was ist denn f: FileText; ???

Das soll wohl TextFile heißen...

Edit:

Zitat von fred.reichbier:

Wie wärs damit:

Mach mal noch try..finally Schutzblöcke drum - besser ist das.

mfG
mirage228