Forum: Programmieren allgemein
by NormanNG,
18. Mai 2006
Hi,
schau mal das hier an...
Wenn Du überall statt sleep dieses delay verwendest, dann sieht man auch die Computer-Schritte.
Forum: Programmieren allgemein
by NormanNG,
18. Mai 2006
Hi,
KartenWert := randomrange( Low(tKarten), High(TKarten)+1 );
Ich hab's nochmal getestet: diese Anweisung liefert (ziemlich gleichverteilt) zufällige Werte zwischen 0 und 15 (inklusive beider Grenzen).
Damit wird in "kartegeben" solange ein kartenwert erzeugt, bis auch die letzte Karte vom Stapel gezogen wurde. Soweit stimmt es.
Die beiden Funktionen SpielerGewonnen und...
Forum: Programmieren allgemein
by NormanNG,
17. Mai 2006
Hi,
Wenn du den Stapel bereits zufällig füllst, dann kannst du in KarteGeben völlig auf random verzichten und nimmst immer die oberste Karte. Das Berechnen einer Zufallszahl im Maximalbereich solange, bis der Wert (zufällig) im Stapel gefunden wird, ist sicher nicht optimal.
P.S.:
@Klaus01
Stapel := Stapel - ;
das ist schon ok. hier wird KartenWert aus dem Set entfernt.
Forum: Programmieren allgemein
by NormanNG,
17. Mai 2006
Hi,
wenn der Stapel leer ist, beibt er in uLogik.KarteGeben hängen...