Class TPlayer (unit BjTypes)

Inherits from

TObject

Constructors


constructor Create;

*** TPlayer


Functions

function AllHandsBusted: boolean;


destructor Destroy;


function EvaluateAllHands(DealerHand: THand): double;

Retuns the net winnings for these hands

procedure InitHands(Wager: double);


procedure PlayHands(DealerCard: TCard; Deck: TDeck);

Hard Hand Strategy for Stiffs

Properties

Events

Variables

Cash : double;


Hands : array[0..9] of THand;


NumHands : integer;



Constructors


constructor Create;

*** TPlayer


Functions


function AllHandsBusted: boolean;


destructor Destroy;


function EvaluateAllHands(DealerHand: THand): double;

Retuns the net winnings for these hands


procedure InitHands(Wager: double);


procedure PlayHands(DealerCard: TCard; Deck: TDeck);

Hard Hand Strategy for Stiffs


Properties


Events


Variables


Cash : double;


Hands : array[0..9] of THand;


NumHands : integer;