Performanceproblem mit ca. 30000 Listboxeinträgen

[Hallo_Thomas]

@ Sharky

Delphi-Quellcode:

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

Bis jetzt lagst Du immer richtig, aber dieses einemal nicht, würdch behaupten.
Ich jetzt ein Diese Zeile so ersetzt und unten natürlich
folgendes rausgelöscht.

Delphi-Quellcode:

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

Jetzt sind 5 min rum das Programm rechnet immer noch, glaub ich verzweifle


P.S. Im jetzigen Programm oben und eigenlich auch schon im vorhergehenden Programm waren doch diese anWeisungen getrennt von einnander, dies hat schon einen unheimlichen Leistungsschub gebracht, aber eh bissl fehlt noch