Performanceproblem mit ca. 30000 Listboxeinträgen

[Hallo_Thomas]

@Sharky

Ich habe deinen Quelltext eigentlich nur reinkopiert und den rest gelöscht.
und ich bleibe dabei das jetzte Beispiel1 Programm ist auf keine Fall schneller als Programm Beispiel

Delphi-Quellcode:

procedure TForm1.Addmyitem(const AItem: string; const AColor: TColor);
var
  x, i,pl0         : Integer;
  counte            : array[0..409] of Integer;
begin
  Anzeige.Items.InsertObject(0, AItem, TObject(AColor));
  DoubleBuffered := True;

  // Alle "Counter" auf 0 setzen
  for i := 0 to 409 do
  begin
    Counte[i] := 0;
  end;
  // Hier beginnen die Berechnungen
for pl0 := Form1.Anzeige.count - 1 downto 0 do // (1) Das ist die Schleife für die Items (30.000)
    begin
      for x := 0 to 409 do                          // (2) Das ist die Schleife für die Berechnung
      begin
        if StrToInt(Form1.Anzeige.Items[pl0]) in werte[x] then
          Counte[x] := 0
        else
          Inc(Counte[x]);
      end;                                         // (2) Hier endet die Schleife für die Berechnung
      for x := 0 to 409 do                          // (3) Das ist die Schleife für die Ausgabe
      begin
        (FindComponent('Label' + IntToStr(x + 2)) as TLabel).Caption := 
          IntToStr(Counte[x]); 
      end;                                         // (3) Hier endet die Schleife für die Ausgabe 
    end;                                           // (1) hier endet die Schleife für die Items. 
  end;

[edit=sakura] Doppelpost gelöscht. Mfg, sakura[/edit]