StringReplace mit Anhang

[malo]

Zitat von Grolle:

Hi!
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, 'IrgendwasanText', 'Textgeändert"', [rfReplaceAll]) + '"'; Das klappt auch so nicht. In dem Text sind mehrere StringReplace-Routinen.
wenn ich das so wie bei dem obigen Source mache wird einfach ein " ans Text-
ende angehängt. Es soll aber ans Zeilenende.

Dann musst du aber wissen, in welcher Zeile du bist. Und dann etwa Memo1.Lines[i] := Memo1.Lines[i] + '"'"

[tommie-lie]

Zitat von Grolle:

Das klappt auch so nicht.

Copy&Waste-Fehler
Ich meinte eigentlich das Zeilenweise durchgehen, fast so wie malo in seinem letzten Beitrag:

Delphi-Quellcode:

for i := 0 to Memo1.Lines.Count - 1 do
  Memo1.Lines[i] := StringReplace(Memo1.Lines[i], 'IrgendwasanText', 'Textgeändert"', [rfReplaceAll]) + '"';

Jetzt aber