Class THand (unit BjTypes)

Inherits from

TObject

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;



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;