Ein kleiner Tipp zu folgendem Code:
Delphi-Quellcode:
W1:=random(6)+1;
W2:=random(6)+1;
W3:=random(6)+1;
W4:=random(6)+1;
W5:=random(6)+1;
W6:=random(6)+1;
W7:=random(6)+1;
W8:=random(6)+1;
Augenzahl:=W1+W2+W3+W4+W5+W6+W7+W8;
Die augenzahl lässt sich viel besser mit einer Funktion ausrechnen:
Delphi-Quellcode:
function BerechneSummeAugenzahl(AnzahlWuerfel:integer):integer;
begin
result := 0;
for i := 1 to AnzahlWuerfel do
Result := Result + random(6)+1;
end;
Und damit kannst du die vielen Variablen W1 bis W8 rauswerfen und schreibst z.B. nur:
Augenzahl := BerechneSummeAugenzahl(8);