Hmm, dachte es geht einfach darum eine Suche zu implementieren, wie man es halt von Texteditoren so kennt. Also Implementierung einer Suche und Markierung des gefundenen Textes mit den vorhandenen Methoden. Da wäre das dann so gegangen:
Delphi-Quellcode:
uses
SynEdit, SynMemo, SynEditSearch oder SynEditRegexSearch;
// Deklaration im Formular
SearchEngine : TSynEditSearch;
oder
SearchEngine : TSynEditRegexSearch
procedure TForm1.FormCreate(Sender: TObject);
begin
SearchEngine := TSynEditSearch.Create(self);
SynMemo1.SearchEngine := SearchEngine;
// Aufruf erfolgt so
SynMemo1.SearchReplace('Suchbegriff oder Expr', '', []);
TSynEditSearch und TSynEditRegexSearch sind bereits voll funktionsfähig. Da aber als Source vorhanden, leicht anpassbar bzw. von der Basis-Customklasse eigene Engines ableitbar.
Völlig freies
farbliches hinterlegen beliebiger Begriffe ist das dann natürlich nicht.