|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.107 Beiträge
Delphi 11 Alexandria
|
Re: Zeichenkette in memo-Komponente automatisch löschen
9. Jan 2005, 20:19
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.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|