| Class THand (unit BjTypes) |
TObject
| Constructors |
constructor Create;| Functions |
procedure AddCard(c: TCard);
function HavePair: boolean;
procedure InitHand;
function IsBlackJack: boolean;
function IsSoft: boolean;
function Out: string;
function ShowCard: TCard;
procedure Split(NewHand: THand; Deck: TDeck);
procedure TakeHit(Deck: TDeck);
function Total: integer;| Properties |
property NumCards : integer| Events |
| Variables |
Options : THandOptions;
Wager : double;
FCards : array[0..10] of TCard;
FNumCards : integer;
HaveAce : boolean;
LowTot : integer;
WasSplit : boolean;| Constructors |
constructor Create;*** THand
| Functions |
procedure AddCard(c: TCard);
function HavePair: boolean;
procedure InitHand;
function IsBlackJack: boolean;
function IsSoft: boolean;
function Out: string;
function ShowCard: TCard;
procedure Split(NewHand: THand; Deck: TDeck);NewHand is the new hand that gets created after a split
procedure TakeHit(Deck: TDeck);
function Total: integer;| Properties |
property NumCards : integer| Events |
| Variables |
Options : THandOptions;
Wager : double;
FCards : array[0..10] of TCard;
FNumCards : integer;Can't have more than this, can it?
HaveAce : boolean;
LowTot : integer;
WasSplit : boolean;