Zahl in Datei speichern und auslesen!

[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