Zahl in Datei speichern und auslesen!

[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