Text Datei wie Query durchlaufen ??

[Andidreas]

probiers mal so

Delphi-Quellcode:

procedure prReadtxtFile(sPath : String);

var
sRow    : String;
txtFile : TextFile;

begin

  AssignFile(txtFile, sPath);

  Reset(txtFile);

  While Not EOF txtFile Do
  Begin
    {$I-}
    ReadLn(txtFile, sRow);
    If IOResult <> 0 Then //Fehler beim Lesen
    Begin
      MessageDlg('Error while Reading Text File!', mtError, [mbOK], 0);
    End;
    {$I+}

 End;

 CloseFile(txtFile);

end;

ich hoff mal ich hab keinen syntax oder denkfehler drinne, aber so sollts klappen