Oder zeilenweise einlesen:
Delphi-Quellcode:
...
var fileH: textFile;
newLine: RawByteString;
...
begin
...
assignFile(fileH,filename);
reset(fileH);
while not eof(fileH) do begin
readln(fileH,newLine);
Memo1.Items.Add(UTF8toString(newLine));
end;
closeFile(fileH);
...
end;
Habe ich so oder so ähnlich auch hier und da gemacht und bisher keine Probleme damit.
Bis denn
Bommel
Edit: Man sollte Dateien auch öffnen und schließen... Fehlendes reset/closeFile ergänzt.