Mehr Speed für Random?

**Klaus01**

Hallo Fabian,

welchen Startknopf?

Ich habe es hierhin gepackt:

Delphi-Quellcode:

			procedure Tform1.FormCreate(Sender: TObject);

begin

  randomize;

end;

auch hier kann das randomize weg:

Delphi-Quellcode:

			repeat

  pas1:=strtofloat(plusangriffscheren1.text);

   //randomize;

   ras1:=random(6)+1;

   if ifs1.checked then a1:=ras1+pas1;

und hier auch:

Delphi-Quellcode:

			procedure Tform1.Button1Click(Sender: TObject);

begin

  //randomize;

  x:=random(6)+1;

  w6.text:=floattostr(x);

end;

Ein wenig zur Wahrscheinlichkeitsrechnung: