Wörter in Zeichenstring fett schreiben

[Bjoerk]

Alternative:

Delphi-Quellcode:

procedure DoColorWork (ARichEdit: TWasAuchImmerFuerEinRichEdit; const S: string);
var
  I, X, L: integer;
  F: boolean;
begin
  ARichEdit.Text:= StringReplace(AnsiLowerCase(ARichEdit.Text), AnsiLowerCase(S), S, [rfReplaceAll]);
  ARichEdit.Lines.BeginUpDate;
  L:= Length(S);
  X:= 1;
  F:= true;
  while F do
  begin
    X:= PosEx(S, ARichEdit.Text, X);
    if X <> 0 then
    begin
      with ARichEdit do
      begin
        SelStart:= X-1;
        SelLength:= L;
        SelAttributes.Color:= clNavy;
        SelAttributes.Style:= [fsBold];
        SelAttributes.Name:= Font.Name;
        SelAttributes.Size:= Font.Size;
      end;
      Inc(X, L);
    end
    else
      F:= false;
  end;
  ARichEdit.SelLength:= 0;
  ARichEdit.Lines.EndUpDate;
end;

// Aufruf:

DoColorWork (WasAuchImmerFuerEinRichEdit, 'HÖHE:');