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;