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"
