Problem beim erzeugen von Zufallszahlen 100.000<

[jfheins]

Also besser so:

Delphi-Quellcode:

 //  randomize; Ab ins onFormCreate damit !
      SetLength( MyListe, StrToInt64(Edit1.Text)); 
   for i:=0 to Pred (StrToInt64(Edit1.Text)) do
begin 
      MyListe[i].Zahl := random(7)+1; 
      if MyListe[i].Zahl in [1,3,7] then 
         MyListe[i].farbe := clblue 
      else 
         MyListe[i].farbe := clyellow; 
   end; 
   ShowMessage('Fertig :o)'); 
   Finalize(MyListe);

(da sind auch die ganzen Pred()'s weg ...