Random funktion mit variabel?

[chaosben]

Hi Hofnar!

Wenn ich deinen Code erweitere kommt etwa sowas raus:

Delphi-Quellcode:

procedure TForm1.Alles_WuerfelnClick(Sender: TObject);
var a,b,c,d,e,f,g,h,i,j:real   ;
SizeWuerfel : Byte;
begin
SizeWuerfel:=25;
randomize; //Zufallszahl für alle gleichzeitig
a:=random (SizeWuerfel)+1;
b:=random (SizeWuerfel)+1;
c:=random (SizeWuerfel)+1;
d:=random (SizeWuerfel)+1;
e:=random (SizeWuerfel)+1;
f:=random (SizeWuerfel)+1;
g:=random (SizeWuerfel)+1;
h:=random (SizeWuerfel)+1;
i:=random (SizeWuerfel)+1;
j:=random (SizeWuerfel)+1;
end;

Dieses Vorgehen ist aber ... naja sagen wir ... unschön.
Ich will dir hier nicht gleich kompletten Code vor die Tastatur werfen. Deswegen nur ein Hinweis: Vielleicht (sicher) macht es sich gut, eine Klasse TWuerfel zu erstellen. Wenn du dazu weitere Tips brauchst, sag "Bescheid"