TO32ParadoxValidator

type TO32ParadoxValidator = class(TO32BaseValidator)

protected

  FMaskBlank: char;

  procedure SetInput(); override;

  procedure SetMask(); override;

  function GetValid; override;

  function GetSampleMasks; override;

  function Validate();

  function DoValidateChar();

  function ValidateChar();

  function FindLiteralChar();

public

  constructor Create(); override;

  function IsValid; override;

  property Valid: Boolean;

  property Input: string;

published

  property Mask: string;

  property BeforeValidation: TNotifyEvent;

  property AfterValidation: TNotifyEvent;

  property OnValidationError: TValidatorErrorEvent;

end;

TO32ParadoxValidator

TO32BaseValidator

TO32Component

TObject