TTitanClassRec

type TTitanClassRec = class

public

  NameIdx: Integer;

  UpCaseIndex: Integer;

  AncestorClassRec: TTitanClassRec;

  ClassObject: TTitanScriptObject;

  Name: string;

  OwnerName: string;

  AncestorName: string;

  Scripter: Pointer;

  ClassID: Integer;

  ModuleID: Integer;

  ml: TTitanModifierList;

  MemberList: TTitanMemberList;

  ck: TTitanClassKind;

  IsStaticArray: Boolean;

  OwnerClassRec: TTitanClassRec;

  fClassDef: TTitanClassDefinition;

  UsingInitList: TTitanIds;

  AutoDestructorID: Integer;

  isSet: Boolean;

  PtiSet: PTypeInfo;

  fHasRunTimeProperties: Boolean;

  constructor Create();

  destructor Destroy; override;

  procedure ResetCompileStage;

  procedure SaveToStream();

  procedure LoadFromStream();

  function GetClassDef;

  function AddField();

  function AddMethod();

  function AddProperty();

  function AddNestedClass();

  function CreateScriptObject();

  procedure CreateClassObject;

  function GetMember();

  function FindMember();

  function FindMemberEx();

  function IsNestedClass();

  function FindNestedClassID();

  function AddHostMethod();

  function AddHostProperty();

  function AddHostConstant();

  function AddHostVariable();

  function AddHostObject();

  function AddVirtualObject();

  function AddHostInterfaceVar();

  function AddHostField();

  function AddHostRecordField();

  function FindOverloadedSubID();

  procedure FindOverloadedSubList();

  function IsImported;

  function InheritsFromClass();

  procedure DeleteMember();

  function GetConstructorID;

  function GetConstructorIDEx();

  function GetClassList;

  procedure InitStaticFields;

  function ModuleName;

  function IsStatic;

  function TyphonClass;

  function TyphonClassEx;

  function HasPublishedProperty();

  function HasPublishedPropertyEx();

  function FindBinaryOperatorID();

  function FindUnaryOperatorID();

  function HasRunTimeProperties;

end;

TTitanClassRec

TObject