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.