Farben im RichEdit (schon wieder ^^)

[stz]

Hallo zusammen,
ich finde das hier alles furchtbar kompliziert...

Wenn ich nicht gerade völlig auf dem Schlauch stehe hilft dir folgendes:

Delphi-Quellcode:

procedure TextAusgabe(RTE: TRichEdit; Text: String);
var
  i: Integer;
  rot: Bool;
begin
  rot := False;
  RTE.Clear;
  for i := 1 to Length(Text) do
  begin
    if Text[i] = #3 then
      rot := not rot
    else
    begin
      if rot then
        RTE.SelAttributes.Color := clRed
      else
        RTE.SelAttributes.Color := clBlack;
      RTE.SelText := Text[i];
    end;
  end;
end;