Class TCardShoe (unit Cardshoe)

Inherits from

TComponent

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 : Integer

Properties

Events

event OnEmptyDeck : TNotifyEvent

Events

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 : Integer

Properties


Events


event OnEmptyDeck : TNotifyEvent

Events


Variables


fOnEmptyDeck : TNotifyEvent;


fCards : Array[1..416] of CardElement;


fNumOfCards : integer;


fNumOfDecks : integer;


fTopOfDeck : integer;