Performanceproblem mit ca. 30000 Listboxeinträgen

[TKC]

in solchen Fällen führe ich immer eine Zeitmessung der einelnen Schleifen durch !

Damit wird schnell klar wo die meiste Zeit verbraten wird ....

Delphi-Quellcode:

  istart:=GetTickCount;

  for x := 0 to 409 do
    begin
      (FindComponent('Label' + IntToStr(x + 1)) as TLabel).Caption :=IntToStr(Counte[x]);
    end;

 ShowMessage(IntToStr(GetTickCount-istart));

Ergibt bei mir beim 1. mal 157ms ... alle andern funktionen liegen bei 0ms !!

Das Problem ist aber nicht die inttostr Anweisung, sondern die Wertzuweisung an die Labels.

Die Lösung besteht darin das die Eigenschaft AutoSize der gesamten Labels auf False gesetz werden muss !!!

Ergebnis der Messung dannach : 16ms

Also ein gutes 10tel der Zeit !