Source position: typinfo.pp line 573
type TClassData = packed record |
public |
property UnitName: ShortString; [r] |
property PropertyTable: PPropData; [r] |
AttributeTable: PAttributeTable; |
|
case TTypeKind of |
tkClass: ( |
ClassType: TClass; |
Parent: PPTypeInfo; |
PropCount: SmallInt; |
UnitNameField: ShortString; |
); |
tkInt64: ( |
dummy: Int64; |
); |
tkFloat: ( |
FloatType: TFloatType; |
); |
end; |