Ende von Textfile

[Remote1]

woher weiss ich, ob das ende eines textfiles erreicht wurde

bei selbst erstellten datentypen mach ich das ja in der art:

Delphi-Quellcode:

while not eof(f) do
 begin
  read(f,s);
   .
   .
   .
  end;

aber bei textfiles bekomme ich eine endlosschleife (zumindest hängt der sich dabei auf)

[himitsu]

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.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Remote1]

tja, der mehrt sich aber trotzdem einen ab

[himitsu]

Dann poste mal ein bissl von deinem Projekt, denn hier dran kann es ja wohl nicht liegen.

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Remote1]

hat sich schon erledigt
ich hab einfach meinen sorce in ein neues projekt eingefügt und schon ging
trotzdem danke