Class TDateValidator (unit CheckDate)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

function CheckDate: Boolean;


procedure ClearKey;


destructor Destroy;


function GetStartDate: string;


procedure SetEncRegKey(EKey: string);


procedure SetEncRegSubKey(EKey: string);


procedure SetStartDate(strDate: string);


Properties

property AllowedDays : Integer


property DaysBeforeDate : Integer


property EncryptedRegistryKey : string


property EncryptedRegistrySubKey : string


property EncryptionKey : string


property RegistryKey : string


property RegistrySubKey : string


property StartDate : string


Events

event OnJustFine : TNotifyEvent


event OnNoWay : TNotifyEvent


Variables

FDaysBeforeDate : Integer;


FDaysToGo : Integer;


FEncKey : string;


FEncRegKey : string;


FEncRegSubKey : string;


FEncryptor : TTomEncryption;


FJustFine : TNotifyEvent;


FNoWay : TNotifyEvent;


FRegistry : TRegistryEnhanced;


FRegKey : string;


FRegSubKey : string;


FStartDate : string;


FTmpERKey : string;


FTmpERSKey : string;



Constructors


constructor Create(AOwner: TComponent);


Functions


function CheckDate: Boolean;


procedure ClearKey;


destructor Destroy;


function GetStartDate: string;


procedure SetEncRegKey(EKey: string);


procedure SetEncRegSubKey(EKey: string);


procedure SetStartDate(strDate: string);


Properties


property AllowedDays : Integer


property DaysBeforeDate : Integer


property EncryptedRegistryKey : string


property EncryptedRegistrySubKey : string


property EncryptionKey : string


property RegistryKey : string


property RegistrySubKey : string


property StartDate : string


Events


event OnJustFine : TNotifyEvent


event OnNoWay : TNotifyEvent


Variables


FDaysBeforeDate : Integer;


FDaysToGo : Integer;


FEncKey : string;


FEncRegKey : string;


FEncRegSubKey : string;


FEncryptor : TTomEncryption;


FJustFine : TNotifyEvent;


FNoWay : TNotifyEvent;


FRegistry : TRegistryEnhanced;


FRegKey : string;


FRegSubKey : string;


FStartDate : string;


FTmpERKey : string;


FTmpERSKey : string;