Bei Textdateien ist das ist genau das Selbe.
Delphi-Quellcode:
While not EoF(TextFile) do Begin
ReadLn(TextFile, String);
...
End;
Für Textdateien gibt es sogar noch eine zusätzliche Variante:
Delphi-Quellcode:
While not SeekEoF(TextFile) do Begin
ReadLn(TextFile, String);
...
End;
Zitat:
In Delphi können Sie mit SeekEof ermitteln, ob sich zwischen dem Dateizeiger und dem Ende einer Datei nur Leerräume befinden. SeekEof bewegt den Dateizeiger hinter alle Leerräume an das Ende der Datei oder auf das nächste Zeichen, das kein Leerraum ist. Wenn der Dateizeiger an das Dateiende gesetzt werden konnte, gibt SeekEof true zurück. Andernfalls wird false zurückgegeben.
http://www.FrankNStein.de/Smiley-Kuss.gif * *
http://www.FrankNStein.de/Smiley-Spinne.gif * * *
http://www.FrankNStein.de/Smiley-Winken.gif