Forum: Object-Pascal / Delphi-Language
Delphi
by abrosda,
4. Jan 2008
Jupp sorry, hab den Quellcode nur halb gelesen :stupid:
Nimm RandomRange(1,6), wenn vorhanden, oder probier es mit:
f := Round(Random(6)+1);
und wenn immer noch Werte fehlen, bau noch einen else Zweig ein und lass Dir den Wert anzeigen...
Forum: Object-Pascal / Delphi-Language
Delphi
by abrosda,
4. Jan 2008
Benutze statt der Funktion random(6) lieber randomrange(1,6).
Random(6) liefert Dir Zufallswerte zwischen 0 und 6(!).
Außerdem solltest Du den Generator initialisieren, mit Randomize.
Falls es RandomRange nicht gibt:
a:= Round(Random(5) + 1);