|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
Delphi 11 Alexandria
|
Re: nicht nur erstes Vorkommnis in Memo markieren
17. Okt 2003, 13:58
Moin lkz,
in dem Beispiel ersetze ich alle Fundstellen, durch 9en, um diese kenntlich zu machen, da man in einem Memo nichts markieren kann. In einem Memo kann man nicht mit verschiedenen Farben arbeiten.
Deshalb der Kommentar.
Nimmst Du statt eines Memos ein RichEdit, könntest Du hinter dieser Zeile:
Memo1.SelLength := iSearchLen;
mal die Zeile
RichEdit1.SelAttributes.Color := clRed;
eintragen (alle Memo1 natürlich gegen RichEdit1 austauschen).
Dann würden alle Fundstellen durch rote Schrift markiert.
Dann noch die '9' durch #00 ersetzen, und die Zuweisung
Memo1.Lines.Text := sText;
weglassen.
Bei einem RichEdit könntest Du allerdings statt so einer Routine auch FindText nehmen, wie weiter oben schon gesagt.
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
|