Aus Datei auslesen

[Klaus01]

@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