Class TDeck (unit BjTypes)

Inherits from

TObject

Constructors


constructor Create;

*** TDeck


Functions

function DealCard: TCard;


destructor Destroy;


procedure Shuffle;


function TrueCount: double;

Ace & Ten are -1, 2-6 are +1

function GetNeedShuffle:boolean;


procedure ReleaseMem;


procedure SetDecks(i: integer);

which card has the "Yellow" cut card

procedure SetPenet(p: double);

so don't accidentally deal from unshuffled deck

Properties

property NeedShuffle : boolean


property NumDecks : integer


property Penetration : double


Events

Variables

Count : integer;


CurCard : integer;


CutAfter : integer;

the current card in the deck

FCards : ^TCardArray;


FNumDecks : integer;


FPenet : double;



Constructors


constructor Create;

*** TDeck


Functions


function DealCard: TCard;


destructor Destroy;


procedure Shuffle;


function TrueCount: double;

Ace & Ten are -1, 2-6 are +1


function GetNeedShuffle:boolean;


procedure ReleaseMem;


procedure SetDecks(i: integer);

which card has the "Yellow" cut card


procedure SetPenet(p: double);

so don't accidentally deal from unshuffled deck


Properties


property NeedShuffle : boolean


property NumDecks : integer


property Penetration : double


Events


Variables


Count : integer;


CurCard : integer;


CutAfter : integer;

the current card in the deck


FCards : ^TCardArray;


FNumDecks : integer;


FPenet : double;