Class TCreditCardVerify (unit CCardVer)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);

***************************************************************************** * TCreditCardVerify.


Functions

procedure SetCardExprMonYear(mon, year : integer);

TCreditCardVerify.

procedure SetCardTypeByName(CardName : String);

TCreditCardVerify.

procedure SetExprDateFromStr(TheStr : String);

TCreditCardVerify.

function GetCardValidity : TCreditCardValidity;

TCreditCardVerify.

function VerifyDate : boolean;

TCreditCardVerify.

function VerifyNumber : boolean;

TCreditCardVerify.

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;