| Class TCreditCardVerify (unit CCardVer) |
TComponent
| Constructors |
constructor Create(AOwner : TComponent);| Functions |
procedure SetCardExprMonYear(mon, year : integer);
procedure SetCardTypeByName(CardName : String);
procedure SetExprDateFromStr(TheStr : String);
function GetCardValidity : TCreditCardValidity;
function VerifyDate : boolean;
function VerifyNumber : boolean;| Properties |
property CardNumber : String
property CardType : TCreditCardType
property ExprDate : TDateTime
property Valid : TCreditCardValidity| Events |
| Variables |
FCardNumber : String;
FCardType : TCreditCardType;
FExprDate : TDateTime;| Constructors |
constructor Create(AOwner : TComponent);***************************************************************************** * TCreditCardVerify.Create *
| Functions |
procedure SetCardExprMonYear(mon, year : integer);TCreditCardVerify.VerifyDate } (****************************************************************************** * TCreditCardVerify.SetCardExprMonYear *
procedure SetCardTypeByName(CardName : String);TCreditCardVerify.Create } (****************************************************************************** * TCreditCardVerify.SetCardTypeByName *
procedure SetExprDateFromStr(TheStr : String);TCreditCardVerify.SetCardExprMonYear } (****************************************************************************** * SetExprDateFromStr * * we assume the format MM/YY here *
function GetCardValidity : TCreditCardValidity;TCreditCardVerify.SetCardTypeByName } (****************************************************************************** * TCreditCardVerify.GetCardValidity *
function VerifyDate : boolean;TCreditCardVerify.VerifyNumber } (****************************************************************************** * TCreditCardVerify.VerifyDate *
function VerifyNumber : boolean;TCreditCardVerify.GetCardValidity } (****************************************************************************** * TCreditCardVerify.VerifyNumber *
| Properties |
property CardNumber : String
property CardType : TCreditCardType
property ExprDate : TDateTime
property Valid : TCreditCardValidity| Events |
| Variables |
FCardNumber : String;
FCardType : TCreditCardType;
FExprDate : TDateTime;