Skatkartenspiel

[Hawkeye219]

Herzlich willkommen in der Delphi-PRAXiS, Mobby.

Das zufällige Ziehen von Karten aus einem immer gleich großen Stapel ist, wie du richtig bemerkt hast, nicht sehr sinnvoll. Bei den letzten Karten kann es sehr lange dauern, weil die "richtigen" Zahlen einfach nicht gezogen werden.

Versuche es doch einmal mit folgender Lösung:

1.) Vereinbare ein Array A mit 32 Elementen und lege dort die Zahlen 1 bis 32 ab.
2.) Erzeuge zwei Zufallszahlen z1 und z2 aus dem Bereich 1..32.
3.) Vertausche die Arrayelemente A[z1] und A[z2].
4.) Wiederhole die Schritte 2 und 3 solange, bis die gewünschte Unordnung im Array A hergestellt ist.

Anschließend enthält das Array A alle Zahlen aus dem Bereich 1..32 in einer zufälligen Reihenfolge. Diese Zahlen kannst du nun als Index für dein Feld nagelneu benutzen, in dem offenbar die Karten abgelegt sind.

Gruß Hawkeye