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:
http://www.faes.de/Basis/Basis-Lexik...inlichke1.html
http://www.henked.de/begriffe/wahrsc...it.htm#wuerfel

Grüße
Klaus