Mehrer FontStyles zuweisen

[mirage228]

Hi,

der Zuweis ist nicht schwer:

Delphi-Quellcode:

function MarkWords(RichEdit: TRichEdit; Words: TStrings; FontStyles: TFontStyles;
  Color: TColor): Cardinal;
var
  i: Integer;
  LastWordPos: Integer;
begin
  LastWordPos := 0;
  for i := 0 to Words.Count - 1 do
  begin
    while LastWordPos < 500 do
    begin
      LastWordPos := FindWord(LastWordPos, RichEdit.Text, Words[i]);
      RichEdit.SelStart := LastWordPos;
      RichEdit.SelLength := length(Words[i]);
      RichEdit.SelAttributes.Color := Color;
      RichEdit.SelAttributes.Style := FontStyles;
      LastWordPos := LastWordPos + 1;
    end;
    LastWordPos := 0;
  end;
  RichEdit.SelStart := 0;
  result := 0;
end;

// Aufruf:
MarkWords(RichEdit1, sl, [fsBold, fsItalic], clRed);

mfG
mirage228