Suchen eines bestimmten Strings in einer TextFile

[johny]

Wenn es wirklich zeilenweise ist, kannst du mit folgender Prozedur zumindst den String finden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 sl: TStringList;
 zeilennr: integer;
begin
 sl:=TStringList.Create; //Objekt erzeugen
 try
 sl.LoadFromFile(ExtractFilePath(Application.ExeName) + 'File1.txt');
 for zeilennr:=0 to sl.Count-1 do
 begin
  if sl[zeilennr]='MARKER' then
  ShowMessage('MARKER gefunden in Zeile '+IntToStr(zeilennr+1)); //Meldung ausgeben
 end;
 finally
  sl.free; //Objekt wieder freigeben
 end;
end;

In diesem Beispiel würde er nach 'MARKER' suchen. Gut, die Meldung wird hier nur angezeigt, um zu sehen, dass es funktioniert. Die fällt in deinem Programm natürlich weg.

So, dann muss die Zeile eben noch gelöscht und neu geschrieben werden. Da kann ich dir spontan leider kein Beispiel geben.