Unit 'o32vldtr' Package
[Overview][Types][Classes][Index] [#pl_orpheus]

TO32BaseValidator

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: o32vldtr.pas line 62

type TO32BaseValidator = class(TO32Component)

protected

  FBeforeValidation: TNotifyEvent;

  

  FAfterValidation: TNotifyEvent;

  

  FOnUserValidation: TNotifyEvent;

  

  FOnErrorEvent: TValidatorErrorEvent;

  

  FInput: string;

  

  FMask: string;

  

  FValid: Boolean;

  

  FErrorCode: Word;

  

  FSampleMaskLength: Word;

  

  FSampleMasks: TStringList;

  

  procedure SetInput(); virtual; abstract;

  

  procedure SetMask(); virtual; abstract;

  

  procedure SetValid();

  

  function GetValid; virtual; abstract;

  

  function GetSampleMasks; virtual; abstract;

  

  procedure DoOnUserValidation;

  

  procedure DoBeforeValidation;

  

  procedure DoAfterValidation;

  

  procedure DoOnError();

  

public

  constructor Create(); override;

  

  destructor Destroy; override;

  

  function IsValid; virtual; abstract;

  

  function SampleMaskLength;

  

  property Input: string; [rw]

  

  property Mask: string; [rw]

  

  property Valid: Boolean; [r]

  

  property ErrorCode: Word; [r]

  

  property SampleMasks: TStringList; [r]

  

  property BeforeValidation: TNotifyEvent; [rw]

  

  property AfterValidation: TNotifyEvent; [rw]

  

  property OnValidationError: TValidatorErrorEvent; [rw]

  

end;

Inheritance

TO32BaseValidator

  

|

TO32Component

  

|

TObject



CT Web help

CodeTyphon Studio