mehrere zeilen auslesen

[Waldteufel]

Hi.

Oder, um alles zu lesen/schreiben :

Delphi-Quellcode:

procedure Speichern;
var 
  i : integer
  f : file;
begin
  Assign(f, 'test.dat'); 
  Rewrite(f);
  for i := 0 to Memo1.Lines.Count - 1 do
    WriteLn(f, Memo1.Lines[i]);
  Close(f);
end;

procedure Laden;
var 
  s : string;
  f : file;
begin
  Assign(f, 'test.dat'); 
  Reset(f);
  while not eof(f) do
  begin
    ReadLn(f, s);
    Memo1.Lines.Add(s);
  end;
  Close(f);
end;