Richedit schnell viele farbige Zeilen einfügen zu langsam

[sx2008]

Das Problem liegt wahrscheinlich an dem Aufruf von GetTextLen.
Diese Funktion zählt immer wieder von Vorne durch und braucht dadurch immer länger.
Das führt dann zu einem quadratischen Anwachsen der benötigten Zeit.

Delphi-Quellcode:

procedure TFmain.TntButton_generate_ReportClick(Sender: TObject);
Var i   : Integer;
    st1 : String;
  ins_pos : integer;
  list : TStrings;
begin
  RichEdit1.Lines.BeginUpdate;
  // Zwischenvariable - spart Zeit und bringt Klarheit in den Code
  list := ListBox_HEX.Items;

  ins_pos := RichEdit1.GetTextLen; // am Anfang einmal die Einfügeposition ermitteln
  for i:= 0 to list.Count - 1 do Begin
    with RichEdit1 do Begin
      st1 := list.Items[i];
      SelStart := ins_pos;
      SelAttributes.Color := TColor(list.Objects[i]);
      SelText := st1 + #13#10;
      
      {
      Einfügeposition weiterzählen.
      Hier bin ich mir nicht sicher, ob man den Zeilenumbruch als 2 Zeichen
      zählen muss oder nicht. 
      Bitte selbst herausfinden.
      }
      Inc(ins_pos, Length(st1) + 2);
    end;
  end;
  RichEdit1.Lines.EndUpdate;
end;