TMemo Zeichen ersetzen

[bioser]

Hallo,

ich möchte im TMemo bestimmte Zeichen ersetzen, wie zum Beispiel "sz" durch "ß".
Ich verwende im OnChange-Handler pos('sz',trim(Memo.Text)) und ersetze gegebenfalls
"sz" dann mit StringReplace durch "ß", weil der Benutzer die Aktion auch abbrechen
kann, wenn "sz" nicht ersetzt werden soll.
Ich möchte aber, daß nicht immer wieder der gesamte Text durchsucht wird, sondern
ab dem nächsten Zeichen, das nach "sz" kommt.
Kann mir jemand behilflich sein ? Danke schon mal.

Gruss
BIOSER

[3_of_8]

Wie wärs mit memo1.text:=StringReplace(memo1.text,'sz','ß');?

[TeronG]

besser so ^^

Delphi-Quellcode:

StringReplace(Memo1.Text,'sz','s',[rfReplaceAll, rfIgnoreCase])

[3_of_8]

Wo du recht hast...

[TeronG]

Kann schon mal vorkommen :mrgreen:

[bioser]

Vielleicht formuliere ich das mal anders:

Wie kann ich Zeichen in einem String ersetzen, aber erst dann,
wenn der Benutzer die Quittierung bestätigt hat ?

[3_of_8]

Da gibts ne schöne Demo dazu: RichEdit.

Da ist genau das erklärt.

[bioser]

Danke, ich finde die Demo leider nicht. Habe Delphi 7.0 PE,
habe nur einen einfachen TRichEdit Control TextEditor gefunden,
aber ohne "Suche und Ersetze".

[marabu]

Hallo Bioser,

vielleicht hilft dir dieser Beitrag etwas weiter. Ich markiere damit alle Fundstellen in einem RichEdit.

Grüße vom marabu