Moin moin,
brauchst du wirklich eine ListBox für die Einträge? (Ich kann mir nicht vorstellen,
dass jemand 100000 Einträge durchscrollt)
Wenn du im Programm nur die farbe + zahl brauchst, nehme doch nen array...
(Mit Begin + EndUpdate gehts bissel schneller, aber zufrieden wirst du nicht sein)
Delphi-Quellcode:
type
TMyListe = Record
Zahl : Integer;
Farbe : TColor;
end;
procedure TForm1.SpeedButton8Click(Sender: TObject);
Var i : Integer;
MyListe : array of TMyListe;
begin
randomize;
for i:=1 to StrToInt64(Edit1.Text) do begin
SetLength( MyListe, i );
MyListe[Pred(i)].Zahl := random(7)+1;
if MyListe[Pred(i)].Zahl in [1,3,7] then
MyListe[Pred(i)].farbe := clblue
else
MyListe[Pred(i)].farbe := clyellow;
end;
ShowMessage('Fertig :o)');
Finalize(MyListe);
end;
Wenn du hier 100000 einträgst und auf deinen button klickst,
bekommst du die meldung schon, wenn du die maus los lässt...
Ist es evtl. eine alternative?