mehrere zeilen auslesen

[whiteshark]

Moin Leute,
ich bin gerade dabei das externe speichern und einlesen zu üben. mit einer Zeile aus einer Datei klappt es ja schon, aber wie kann ich mehrere Zeilen auslesen?

Delphi-Quellcode:

function einlesen;
var File:textfile;
var s:String;
begin
AssignFile(File, 'test.dat');
Reset(File);
Readln(File,s);
memo1.Lines[0] :=s;
CloseFile(File);

Delphi-Quellcode:

function speichern;
var File:textfile;
var s:string;
begin
AssignFile(File, 'test.dat');
Rewrite(File);
s:=memo1.lines[0];
writeln(File,s);
CloseFile(File);

Wie kann ich jetzt mehrere Zeilen auslesen?

[Nikolas]

Einfach readln mehrmals hintereinander ausführen.

Delphi-Quellcode:

readln(Afile,a);
readln(Afile,b);

usw.

Und besser keinen reservierten Ausdruck wie 'File' benutzen.

[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;

[Keldorn]

Hallo

Zitat:

AssignFile(File, 'test.dat');

so eine relative Pfadangabe wird dir irgendwann große Probleme bereiten.

Zitat:

memo1.Lines[0] :=s;

lösch das memo am Anfang mit memo.clear und füge die neuen Zeilen mit memo.lines.add hinzu. Bei deiner drirektzuweisung mußt Du dir sicher sein, daß wirklich so viele Zeilen exisieren, wenn nicht, siehst du eine AV.

nutze die eof-Funktion in einer While-Anweisung, um jede Zeile auszulesen.

mit memo1.lines.loadfromfile gehts natürlich noch schneller ;)

Mfg Frank

[whiteshark]

@Toxman: geht aber nicht so richtig!

[fantotal]

3 Leute haben dir nun einen Vorschlag gemacht und du sagst nur: "Geht aber nicht so richtig!"

Was geht nicht richtig? :gruebel:

[Keldorn]

Zitat:

Zitat von whiteshark

geht aber nicht so richtig!

geniale Antwort! Du willst uns nicht zufälligerweise auch mitteilen WAS nicht geht? Hellsehen macht sich heut gaaanz schlecht.

[whiteshark]

Sorry! :-D
War mit meiner Antwort etwas kurz. Aber die Variante von Toxman funktioniert bei mir nicht so richtig.

[Christian Seehase]

Moin Whiteshark,

mit der Antwort hast Du nich ein bisschen mehr ausgesagt, als mit der vorigen...