Performanceproblem mit ca. 30000 Listboxeinträgen

[Sharky]

Zitat von Hallo_Thomas:

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; 
  end;

end;

Ach Thomas.......

ich habe dir jetzt schon in zwei anderen Threads gesagt (und dir Beispiele geschriebne) das Du die Ausgabe der Ergebnisse aus der Schleife für die Berechnungen hereausnehmen "sollst".