TTypeData
Class properties type data record.
Declaration
Source position: typinfo.pp line 608
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
Description
If the typeinfo kind is tkClass, then the property information follows the UnitName string, as an array of TPropInfo records.