TO32RegExValidator

type TO32RegExValidator = class(TO32BaseValidator)

protected

  FLogging: Boolean;

  FLogFile: string;

  FRegexEngine: TO32RegexEngine;

  FExprErrorPos: Integer;

  FExprErrorCode: TO32RegexError;

  FIgnoreCase: Boolean;

  procedure SetIgnoreCase();

  procedure SetLogging();

  procedure SetLogFile();

  procedure SetMask(); override;

  function GetValid; override;

  function GetSampleMasks; override;

  procedure SetInput(); override;

  function CheckExpression();

public

  constructor Create(); override;

  destructor Destroy; override;

  function IsValid; override;

  function GetExprError;

  property Valid: Boolean;

  property ExprErrorPos: Integer; [rw]

published

  property Input: string;

  property Expression: string; [rws]

  property Logging: Boolean; [rw]

  property LogFile: string; [rw]

  property IgnoreCase: Boolean; [rws]

  property BeforeValidation: TNotifyEvent;

  property AfterValidation: TNotifyEvent;

  property OnValidationError: TValidatorErrorEvent;

end;

TO32RegExValidator

TO32BaseValidator

TO32Component

TObject