Suchergbenisse farblich hinterlegen (TSynMemo)

[Satty67]

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.