Karten geben

[Samufi]

Hallo,
ich versuche gerade ein Kartenspiel zu programmieren und bin beim Karten geben stecken geblieben. Mein Plan war, für jeden Spieler eine ListBox (die dann später noch mit Bildern verknüpft werden soll) zu erstellen und die Kartenwerte per Zufallsgenerator dort hineinzuschreiben. Dazu brauche ich aber einen Zufallsgenerator, der schon herausgegebene Werte nicht noch einmal annimmt. Dann könnte die Sache ungefähr so aussehen:

Delphi-Quellcode:

var I,J,SpielerAnzahl,KartenAnzahl,KartenGesamt:Integer; 
begin

For I:=1 to SpielerAnzahl do
begin
  For J:=1 to KartenAnzahl do
  begin
    TListBox(Form1.FindComponent('ListeSpieler'+InttoStr(I))).Items.add([Zufallsgenerator](KartenGesamt))
  end;
end;

end;

Mein Problem ist jetzt, dass ich keinen solchen Zufallsgenerator kenne; der, den ich jetzt gefunden habe (random(KartenAnzahl)) würde ja auch mehrmals dieselben Karten ausspucken. ich habe schon überlegt, den Generator in eine Repeat-Schleife zu packen, bis die Bedingung erfüllt ist, dass kein bisher schon aufgetretener Wert heruaskommt aber das wäre äußerst unelegant und könnte zu langen wartezeiten führen. Ich brauche also ein Zufallsgerät für eine "Kugelziehung ohne Zurücklegen" um das mal bildhaft auszudrücken...
Vielen Dank allen schon im Voraus, die sich des Problems annehmen!
Samufi

[guinnes]

Hast du dir schon mal überlegt, wie im richtigen Leben Karten gegeben werden ? Man bringt die Reihenfolge des Stapels durcheinander und gibt danach von oben.
Vorschlag :
Ein Array, in dem alle Karten geordnet drinstehen
2 Zufallszahlen hintereinander ziehen und die Karten im Array vertauschen
Das ganze dann 1000-10000 mal wiederholen
Dann einfach " von oben " geben

[MarcoWarm]

Oder:

Alle Karten in einer Liste halten (TList, TStringList) und dann per idx:=random(List.Count-1) eine Karte ziehen und diese nach dem ziehen aus der Liste löschen List.Delete(idx).

Gruß
Marco

[Samufi]

Danke für die Ansätze! Ich denke, das müsste ich jetzt irgendwie honkrigen.