Und zwar habe ich folgenes Problem, wenn bei diesen Befehl unten versuche 100.000 Zufallszahlen zu erzeugen, schaffe ich eine Rechnerauslastung von 99% und Speicherauslastung steigt, und die Zahlen werden erst nach ca. 2min dargestellt.
Während bei 10.000 Zahlen der Vorgang gerade mal 1,2s dauert!
Wie kann ich diesen Vorgang beschleunigen?
Delphi-Quellcode:
procedure TForm1.SpeedButton8Click(Sender: TObject);
Var Zahl,i :Integer;
farbe :TColor;
begin
randomize;
for i:=1 to StrToInt64(Edit1.Text) do//////hier wird bestimmt wieviel Zz erzeugt werden
begin
Zahl :=random(7)+1;
meineListe.Insert(0,IntToStr(Zahl));
if Zahl in [1,37] then farbe := clblue else
farbe := clyellow;
Listbox1.Items.InsertObject(0,IntToStr(Zahl), Pointer(farbe));
end;
end;