StringReplace mit Anhang

[malo]

Zitat:

Zitat von Grolle

Hi!

Delphi-Quellcode:

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

Delphi-Quellcode:

Memo1.Lines[i] := Memo1.Lines[i] + '"'"

;)

[tommie-lie]

Zitat:

Zitat von Grolle

Das klappt auch so nicht.

Copy&Waste-Fehler :wall:
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 :stupid: