Class TDeck (unit BjTypes) |
Inherits from
TObject
constructor Create;
- *** TDeck
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
property NeedShuffle : boolean
property NumDecks : integer
property Penetration : double
Count : integer;
CurCard : integer;
CutAfter : integer;
the current card in the deck
FCards : ^TCardArray;
FNumDecks : integer;
FPenet : double;
constructor Create;
*** TDeck
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
property NeedShuffle : boolean
property NumDecks : integer
property Penetration : double
Count : integer;
CurCard : integer;
CutAfter : integer;
the current card in the deck
FCards : ^TCardArray;
FNumDecks : integer;
FPenet : double;