| Class TPlayer (unit BjTypes) |
TObject
| Constructors |
constructor Create;| Functions |
function AllHandsBusted: boolean;
destructor Destroy;
function EvaluateAllHands(DealerHand: THand): double;
procedure InitHands(Wager: double);
procedure PlayHands(DealerCard: TCard; Deck: TDeck);| 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;