Zeile aus Datei in Textdatei schreiben

[RavenIV]

ich würde die Datei Zeile für Zeile einlesen und dann schauen, ob die gelesene Zeile passt.
somit musst du nicht erst die ganze Datei einlesen.

Delphi-Quellcode:

    
var 
  F: TextFile;
  S: string;
begin
    AssignFile(F, FileName);
    Reset(F);
    repeat
      Readln(F, S);                        { Erste Zeile der Datei lesen }
    until S = gesuchteZeile;
    CloseFile(F);
end;