Hallo,
wenn Du eine Textdatei zeilenweise lesen willst, versuche folgendes.
Delphi-Quellcode:
procedure LoadFile
( iFileName : String ) ;
var
iTextFile : TextFile ;
iTextLine : String ;
begin
{ Ggf. Nicht vorhanden, abbrechen }
if FileExists(iFileName) = FALSE then Exit ;
{ TextFile öffnen }
AssignFile(iTextFile,iFileName) ;
Reset(iTextFile) ;
{ Zeilenweise lesen und in iTextLine speichern }
while not(EOF(iTextFile)) do
begin
ReadLn(iTextFile,iTextLine) ;
end ; // while not
{ TextFile schliessen }
CloseFile(iTextFile) ;
end ;
Viele Grüsse
Tom