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;