TTypeData

Type
TTypeData = packed record
private
  function GetBaseType : PTypeInfo;
  function GetCompType : PTypeInfo;
  function GetParentInfo : PTypeInfo;
  function GetRecInitData : PRecInitData;
  function GetHelperParent : PTypeInfo;
  function GetExtendedInfo : PTypeInfo;
  function GetIntfParent : PTypeInfo;
  function GetRawIntfParent : PTypeInfo;
  function GetIIDStr : ShortString;
  function GetElType : PTypeInfo;
  function GetElType2 : PTypeInfo;
  function GetInstanceType : PTypeInfo;
  function GetRefType : PTypeInfo;
public
  property BaseType : PTypeInfo;
  property CompType : PTypeInfo;
  property ParentInfo : PTypeInfo;
  property RecInitData : PRecInitData;
  property HelperParent : PTypeInfo;
  property ExtendedInfo : PTypeInfo;
  property IntfParent : PTypeInfo;
  property RawIntfParent : PTypeInfo;
  property IIDStr : ShortString;
  property ElType2 : PTypeInfo;
  property ElType : PTypeInfo;
  property InstanceType : PTypeInfo;
  property RefType : PTypeInfo;
  AttributeTable : PAttributeTable;
case TTypeKind of
tkUnKnown: (
);, tkLString: (
);, tkWString: (
);, tkVariant: (
);, tkUString: (
);
tkAString: (
public
  CodePage : Word;
);
tkInt64: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);, tkQWord: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);, tkInteger: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);, tkChar: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);, tkEnumeration: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);, tkBool: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);, tkWChar: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);, tkSet: (
public
  OrdType : TOrdType;
case TTypeKind of
tkInteger: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkEnumeration: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkBool: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);, tkWChar: (
public
  MinValue : LongInt;
  MaxValue : LongInt;
case TTypeKind of
tkEnumeration: (
public
  BaseTypeRef : PPTypeInfo;
  NameList : ShortString;
);
);
tkInt64: (
public
  MinInt64Value : Int64;
  MaxInt64Value : Int64;
);
tkQWord: (
public
  MinQWordValue : QWord;
  MaxQWordValue : QWord;
);
tkSet: (
public
  SetSize : SizeInt;
  CompTypeRef : PPTypeInfo;
);
);
tkFloat: (
public
  FloatType : TFloatType;
);
tkSString: (
public
  MaxLength : Byte;
);
tkClass: (
public
  ClassType : TClass;
  ParentInfoRef : PPTypeInfo;
  PropCount : SmallInt;
  UnitName : ShortString;
);
tkRecord: (
public
  RecInitInfo : Pointer;
  RecSize : LongInt;
case Boolean of
False: (
public
  ManagedFldCount : LongIntdeprecated;
);
True: (
public
  TotalFieldCount : LongInt;
);
);
tkHelper: (
public
  HelperParentRef : PPTypeInfo;
  ExtendedInfoRef : PPTypeInfo;
  HelperProps : SmallInt;
  HelperUnit : ShortString;
);
tkMethod: (
public
  MethodKind : TMethodKind;
  ParamCount : Byte;
case Boolean of
False: (
public
  ParamList : Array[0..1023] of Char;
);
True: (
public
  ParamListDummy : Word;
);
);
tkProcVar: (
public
  ProcSig : TProcedureSignature;
);
tkInterface: (
public
  IntfParentRef : PPTypeInfo;
  IntfFlags : TIntfFlagsBase;
  GUID : TGuid;
  IntfUnit : ShortString;
);
tkInterfaceRaw: (
public
  RawIntfParentRef : PPTypeInfo;
  RawIntfFlags : TIntfFlagsBase;
  IID : TGuid;
  RawIntfUnit : ShortString;
);
tkArray: (
public
  ArrayData : TArrayTypeData;
);
tkDynArray: (
public
  elSize : PtrUInt;
  elType2Ref : PPTypeInfo;
  varType : LongInt;
  elTypeRef : PPTypeInfo;
  DynUnitName : ShortStringBase;
);
tkClassRef: (
public
  InstanceTypeRef : PPTypeInfo;
);
tkPointer: (
public
  RefTypeRef : PPTypeInfo;
);
end