TOgCodeBase

type TOgCodeBase = class(TComponent)

protected

  FAutoCheck: Boolean;

  FCode: TCode;

  FModifier: LongInt;

  FStoreCode: Boolean;

  FStoreModifier: Boolean;

  FOnChecked: TCheckedCodeEvent;

  FOnGetCode: TGetCodeEvent;

  FOnGetKey: TGetKeyEvent;

  FOnGetModifier: TGetModifierEvent;

  function GetCode;

  function GetModifier;

  procedure SetCode();

  procedure SetModifier();

  procedure Loaded; override;

  procedure DoOnChecked(); dynamic;

  function DoOnGetCode; dynamic;

  procedure DoOnGetKey(); dynamic;

  function DoOnGetModifier; dynamic;

  property Code: string; [rw]

  property StoreCode: Boolean; [rw]

public

  constructor Create(); override;

  function CheckCode(); virtual; abstract;

  function IsCodeValid;

published

  property AutoCheck: Boolean; [rw]

  property Modifier: string; [rws]

  property StoreModifier: Boolean; [rw]

  property OnChecked: TCheckedCodeEvent; [rw]

  property OnGetKey: TGetKeyEvent; [rw]

  property OnGetCode: TGetCodeEvent; [rw]

  property OnGetModifier: TGetModifierEvent; [rw]

end;

TOgCodeBase

TObject