im TRichEdit navigieren ?

[RWarnecke]

Hallo Hansa,

hast Du vielleicht soetwas gesucht ? Der Quellcode sucht die alle Wörter und makiert diese in Rot und in Fett. Dabei ist die Groß-/Kleinschreibung egal.

Delphi-Quellcode:

Explode(SearchWords, ' ', SearchKeywords);
for J := 0 to Length(SearchWords) - 1 do
begin
  Offset := 1;
  StringReplace(M_Description.Lines.Text, #13#10, ' ', [rfReplaceAll]);
  repeat
    SelectStart := PosEx(UpperCase(SearchWords[j]), UpperCase(M_Description.Text), Offset);
    if SelectStart <> 0 then
    begin
      M_Description.SelStart := SelectStart - 1;
      M_Description.SelLength := Length(SearchWords[j]);
      M_Description.SelAttributes.Style := [fsBold];
      M_Description.SelAttributes.Color := clRed;
      M_Description.SelLength := 0;
      Offset := SelectStart + Length(SearchWords[j]);
    end;
  until SelectStart = 0;
end;

SearchKeywords ist ein String, welches die Begriffe durch ein Leerzeichen getrennt enthält. Die Funktion Explode trennt diesen String schreibt das Ergebnis in ein Array. Der Rest sollte sich von selbst erklären. M_Description ist ein ganz einfache TRichEdit.