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.