| Class TCardShoe (unit Cardshoe) |
TComponent
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
function GetTopCard:integer;
function GetTopCardAsStr:string;
procedure SetNumberOfDecks(Decks:integer);
procedure Shuffle;| Properties |
property NumOfDecks : Integer| Events |
event OnEmptyDeck : TNotifyEvent| Variables |
fOnEmptyDeck : TNotifyEvent;
fCards : Array[1..416] of CardElement;
fNumOfCards : integer;
fNumOfDecks : integer;
fTopOfDeck : integer;| Constructors |
constructor Create(AOwner:TComponent);Handles up to 8 decks
| Functions |
function GetTopCard:integer;
function GetTopCardAsStr:string;If there are more cards to draw, return the next card else return -1
procedure SetNumberOfDecks(Decks:integer);
procedure Shuffle;| Properties |
property NumOfDecks : IntegerProperties
| Events |
event OnEmptyDeck : TNotifyEventEvents
| Variables |
fOnEmptyDeck : TNotifyEvent;
fCards : Array[1..416] of CardElement;
fNumOfCards : integer;
fNumOfDecks : integer;
fTopOfDeck : integer;