This is what i'm using and it works perfectly..
Code:Procedure ShuffleCards; var i,A: Integer; begin SetLength(RandomDeck, 53); for i := 0 to high(RandomDeck)do RandomDeck[i] := i; for i := 0 to High(Card) do begin A := Random(high(RandomDeck)); Card[i].Position := RandomDeck[A]; DeleteValueInIntArray(RandomDeck, A); End; end;





Reply With Quote
