zahl in text-datei speichern und wieder draufzugreifen?

[Dragonclaw]

Beispiel 2:

Delphi-Quellcode:

{liest alles aus der Datei  "C:\file.txt" aus, und packt das in Memo1}
var t : textfile;
     s : string;
begin
  assignfile(t,'c:\file.txt');
  reset(t);
  while not eof(t) do
  begin
    readln(t,s);
    memo1.lines.add(s);
  end;
  closefile(t);
end;

Delphi-Quellcode:

{Hängt den String "Text" an die Datei "C:\file.txt"}
var t : textfile;
begin
  assignfile(t,'c:\file.txt');
  append(t);
  writeln(t,'Text');
  closefile(t);
end;