| Class TDeck (unit BjTypes) |
TObject
| Constructors |
constructor Create;| Functions |
function DealCard: TCard;
destructor Destroy;
procedure Shuffle;
function TrueCount: double;
function GetNeedShuffle:boolean;
procedure ReleaseMem;
procedure SetDecks(i: integer);
procedure SetPenet(p: double);| Properties |
property NeedShuffle : boolean
property NumDecks : integer
property Penetration : double| Events |
| Variables |
Count : integer;
CurCard : integer;
CutAfter : integer;
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;