TTypeRegistryItem

type TTypeRegistryItem = class

protected

  procedure Init; virtual;

  function IndexOfProp();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  function AddPascalSynonym();

  function AddExternalSynonym();

  function IsSynonym();

  function IsExternalSynonym();

  function FindProperty();

  procedure RegisterExternalPropertyName(); virtual;

  function GetExternalPropertyName();

  function GetInternalPropertyName();

  procedure SetPropertyOptions(); virtual;

  procedure AddOptions();

  procedure RegisterObject();

  function GetObject();

  property Owner: TTypeRegistry; [r]

  property DataType: PTypeInfo; [r]

  property NameSpace: string; [r]

  property DeclaredName: string; [r]

  property Options: TTypeRegistryItemOptions; [rw]

end;

TTypeRegistryItem

TObject