RichEdit-Formatierung

[SirThornberry]

Sollte dann in etwa so aussehen

Delphi-Quellcode:

procedure TForm1.Colorizen(RichEdit: TRichEdit; const Msg: String; Color: TColor);
var LStartpos, LFoundpos: Integer;
begin
  LStartpos := 1;
  repeat
    LFoundpos := PosEx(Msg, RichEdit.Text, LStartpos);
    if LFoundpos > 0 then
    begin
      RichEdit.SelStart := PosEx(Msg, RichEdit.Text, LStartpos) - 1;
      RichEdit.SelLength := Length(Msg);
      RichEdit.SelAttributes.Color := Color;
      RichEdit.SelLength := 0;
      LStartpos := LFoundpos + length(Msg);
    end;
  until LFoundpos <= 0;
end;