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 ^^
StringReplace(Memo1.Text,'sz','s',[rfReplaceAll, rfIgnoreCase])

**3_of_8**

Wo du recht hast...

**TeronG**

Kann schon mal vorkommen

**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

TMemo Zeichen ersetzen

TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Re: TMemo Zeichen ersetzen

Forumregeln

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#2 Re: TMemo Zeichen ersetzen 23. Jan 2006, 15:33 Wie wärs mit memo1.text:=StringReplace(memo1.text,'sz','ß');? Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

TeronG Registriert seit: 19. Jul 2004 Ort: München 960 Beiträge Delphi 2007 Professional	#3 Re: TMemo Zeichen ersetzen 23. Jan 2006, 15:38 besser so ^^ StringReplace(Memo1.Text,'sz','s',[rfReplaceAll, rfIgnoreCase]) 龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#4 Re: TMemo Zeichen ersetzen 23. Jan 2006, 15:38 Wo du recht hast... Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

TeronG Registriert seit: 19. Jul 2004 Ort: München 960 Beiträge Delphi 2007 Professional	#5 Re: TMemo Zeichen ersetzen 23. Jan 2006, 15:51 Kann schon mal vorkommen 龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
	Zitat

bioser Registriert seit: 30. Aug 2005 140 Beiträge	#6 Re: TMemo Zeichen ersetzen 23. Jan 2006, 16:13 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 ?
	Zitat

3_of_8 Registriert seit: 22. Mär 2005 Ort: Dingolfing 4.129 Beiträge Turbo Delphi für Win32	#7 Re: TMemo Zeichen ersetzen 23. Jan 2006, 16:16 Da gibts ne schöne Demo dazu: RichEdit. Da ist genau das erklärt. Manuel Eberl „The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“ - Terry Pratchett
	Zitat

bioser Registriert seit: 30. Aug 2005 140 Beiträge	#8 Re: TMemo Zeichen ersetzen 23. Jan 2006, 16:38 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".
	Zitat

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#9 Re: TMemo Zeichen ersetzen 23. Jan 2006, 16:44 Hallo Bioser, vielleicht hilft dir dieser Beitrag etwas weiter. Ich markiere damit alle Fundstellen in einem RichEdit. Grüße vom marabu
	Zitat