Zeichenkette in memo-Komponente automatisch löschen

[Jab]

Hallo an alle,

Ich habe nochmal eine etwas vielleicht dümmliche Frage.
Ich möchte, dass wenn jemand mehrmals hintereinander den selben buchstaben in meine Tmemo-Komponente schreibt, diese Buchstabenkette automatisch gelöscht wird.

Also als Beispiel:

In memo komponente: "Hallooooooooooooooo"

DAnn möchte ich, dass alle überflüssigen oooooooooooo'S automatisch gelöscht werden.
Also etwas wie:
WEnn 3 mal der selbe buchstabe hintereinander kommt, dann wird die Zeichenkette gelöscht.

Leider bin ich nicht sehr bewandert mit Delphi, also seid nachsichtig
cya Jab

[PierreB]

Zitat:

WEnn 3 mal der selbe buchstabe hintereinander kommt, dann wird die Zeichenkette gelöscht.

Da solltest du aber vorsichtig sein. Ich denke da an die neue Rechtschreibung, z.B. Schifffahrt.

[Jab]

lol ja da werd ich schon drauf aufpassen müssen

Meinetwegen kann sie auch nach 4mal den Selben Buchstaben hintereinander gelöscht werden.

Mir geht es hierbei ums Prinzip
Jab

[Jab]

Weiß denn da echt keiner einen Rat?

[Christian Seehase]

Moin Jab,

also mir fällt da auf Anhieb nur ein Variante ein:

Lies TMemo.Lines.Text in eine Stringvariable ein.
Dann benötigst Du noch eine Liste aller in Frage kommenden Zeichen, oder Du machst es mit einer Schleife von 32 bis 255.
In der Schleife löscht Du dann alle Vorkommen von vier gleichen Zeichen.

sText := StringReplace(sText,StringOfChar(chr(i),4),StringOfChar(chr(i),3),[rfReplaceAll]); anschliessend dann die Variable wieder in TMemo.Lines.Text schreiben.