@Thorsten und Hawkeye
Hier ist das Problem mal mit der altmodischen Methode gelöst.
Delphi-Quellcode:
var Datei:Textfile;
Zeile:string;
begin
assignfile(Datei, 'Datei.txt');
{$I-}
reset(Datei);
{$I+}
if IOResult = 0 then
begin
while not Eof(Datei) do
begin
readln(Datei, Zeile);
// hier kann man nun die einzelnen Zeilen weiterverarbeiten
end;
closefile(Datei);
end
else
// Auswertung von IOResult
end;
Grüße
Klaus