Richedit schnell viele farbige Zeilen einfügen zu langsam

[NICK447]

ja hört sich gut an Stream basteln rein mit den Daten und wieder raus in die Richedit...

und schon probiert ...

Zeilen zusammensetzten mit Formatierung versehen in einen TStringStream schreiben. Wenn fertig komplett vom Stream in RichEdit laden. Ich mache da irgendetwas falsch die Formatierung wird so nicht genommen es werden wieder die '\ durch doppelt '\\ ersetzt. (Der Code ist nur mal quick & dirty zusammengenagelt)

das Ergebniss ist alles in schwarz und meine \par \cf1 wieder mit doppelten '\\' und damit keine Formatierung im RTF

da fehlt mir das Wissen wie das in den RTF gespeichert wird und wie die Komponente arbeitet.

Danke für Eure Ideen.

Gruss Nick

Delphi-Quellcode:

procedure TFmain.TntButton_generate_ReportClick(Sender: TObject);
Var i,j  : Integer;
    st1,st2  : String;
    StrS : TStringStream;
    col  : Tcolor;
begin
  StrS := TStringStream.Create('');
  j := ListBox_HEX.Items.Count - 1;
//  st1 := '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Courier New;';
//  StrS.WriteString(st1);
//  st1 := '{\colortbl ;\red255\green0\blue0;\red0\green0\blue255;';
//  StrS.WriteString(st1);
  st1 := '\viewkind4\uc1\pard\b\f0\fs16 Report';
  StrS.WriteString(st1);
  try
    for i:= 0 to j do Begin
      st1 := ListBox_HEX.Items[i];
      col := TColor(ListBox_HEX.Items.Objects[i]);
      case col of
        clRED  : st2 := '\par \cf1 ';
        clBLUE : st2 := '\par \cf2 ';
      end;
      StrS.WriteString(st2);
      StrS.WriteString(st1);
    end;
    StrS.Position := 0;
    RichEdit1.Lines.LoadFromStream(StrS);
  finally
    StrS.Free;
  end;
end;