TTitanDefinition

type TTitanDefinition = class

public

  DefValue: Variant;

protected

  function GetValue; virtual;

  function PValue; virtual;

  procedure SetValue(); virtual;

public

  Name: string;

  DefKind: TTitanDefKind;

  ml: TTitanModifierList;

  Owner: TTitanDefinition;

  DefList: TTitanDefinitionList;

  Index: Integer;

  UserData: Integer;

  Module: Integer;

  ResultType: string;

  constructor Create();

  procedure Dump(); virtual; abstract;

  procedure AddToScripter(); virtual;

  procedure AddToScripterList;

  function FullName;

  property Value: Variant; [rw]

end;

TTitanDefinition

TObject