Bestimmten Text in Datei finden

[Larsi]

Hi,
der eine oder andere unter euch dürfte ja einen Texteditor haben, oder? Da gibt es ja diese Funktion "Suchen" und "Suchen und Ersetzen". Meine Frage ist jetzt wie ich es schafe, z.B. das Wort "Kuh" in einem Memo zu finden und dann hinter das Wort "Kuh" das Wort "Pferd" schreibe. Dies soll aber auch öfters gemacht werden, falls dieses Wort mehrmals vorkommt im Memo. Das ganze möchte ich natürlich mit Delphi realisieren. Am Besten wäre aber das das Wort "Pferd" eine Zeile über das Wort "Kuh" getan wird und alle anderen Zeilen über Kuh dann wegen des Pferdes eine Zeile Platz machen.

Ein Beispiel:
Vorher:

• Hallo,
  die ist eine Kuh!
  Sie ist sehr schön.
  Die Kuh!

Nachher:

• Hallo,
  Pferd
  dies ist eine Kuh!
  Sie ist sehr schön!
  Pferd
  Die Kuh!

Sry aber mir ist gerade nichts Besseres eingefallen, aber ich glaube das Ihr versteht was ich meine bzw. was ich will


MFG Lars Wiltfang

[toms]

Siehe StringReplace

[Larsi]

Kann mir da jemand ein Beispiel für geben?

[toms]

Zitat von Larsi:

Kann mir da jemand ein Beispiel für geben?

Hast du in der Delphi Hilfe nichts gefunden

[bitsetter]

Zitat von Larsi:

Am Besten wäre aber das das Wort "Pferd" eine Zeile über das Wort "Kuh" getan wird und alle anderen Zeilen über Kuh dann wegen des Pferdes eine Zeile Platz machen.

Oder gehe doch die Lines vom TMemo mithilfe einer Schleife rückwärts durch und prüfe mit Pos ob das Wort Kuh vorhanden ist, dann fügst du eine neue Zeile mit dem Wort Pferd ein.

Delphi-Quellcode:

    
... 
  if Pos('Kuh', Memo1.Lines.Strings[i])> 0 then
    Memo1.Lines.Insert(i, 'Pferd');
...

[toms]

Zitat von Larsi:

Meine Frage ist jetzt wie ich es schafe, z.B. das Wort "Kuh" in einem Memo zu finden und dann hinter das Wort "Kuh" das Wort "Pferd" schreibe.

Memo1.Text := StringReplace(Memo1.Text, 'Kuh', 'Kuh Pferd',[rfReplaceAll, rfIgnoreCase])