Kartenspiel

[Stillmatic]

Hab es soweit!!

Code:

for i := 0 to 8 do
  Begin
   Karte  := TCards(random(UConst.cCardCount));
   if (Karte in newDeck) then
    newDeck:= newDeck - [Karte] else
    Begin
      repeat
       Karte  := TCards(random(UConst.cCardCount));
      until (Karte in newDeck) ;
    end;
    Karten[i] := Karte;
    Ziehung[i]:= cardtoStr(Karten[i]);

Aber das Funktioniert überhaupt nicht!
@Zecke
das müsste ich ja einen neuen array of boolean anlegen, aber es geht doch sicherlich auch anders???