| Class TDateValidator (unit CheckDate) |
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;