Programmberechnung über Listbox läuft zu langsam

[Sharky]

Wenn es denn so laufen muss würde ich diesen Code ändern:

Delphi-Quellcode:

    for pl0 := Form1.Anzeige.count - 1 downto 0 do 
    begin 
      for x := 0 to 81 do 
      begin 
        if StrToInt(Form1.Anzeige.Items[pl0]) in werte[x] then 
          Counte[x] := 0 
        else 
          Inc(Counte[x]); 
      end; 
      for x := 0 to 81 do 
      begin 
        (FindComponent('Label' + IntToStr(x + 2)) as TLabel).Caption := 
          IntToStr(Counte[x]); 
      end; 
    end;

Die Schleife mit dem FindComponent wird ja für jeden Eintrag in der Listbox 82x durchlaufen. Das ist aber nicht notwendig.
Nehme diesen Code aus der Schleife für die Items heraus und führe ihn erst am ende aller Berechnungen aus. (Müsste auch in meinem Beispiel2 aus dem anderen Thread so sein).

[Edit]

Lade Dir doch mal bein Beispiel-2 aus diesem Thread runter und schaue es Dir an. Damit kannst Du deinen Code sicher um die Hälfte kürzen.