TClassData

Declaration

Source position: typinfo.pp line 573

Type
TClassData = packed record
private
  function GetUnitName : ShortString;
  function GetPropertyTable : PPropData;
public
  property UnitName : ShortString;
  property PropertyTable : PPropData;
  AttributeTable : PAttributeTable;
case TTypeKind of
tkClass: (
public
  ClassType : TClass;
  Parent : PPTypeInfo;
  PropCount : SmallInt;
  UnitNameField : ShortString;
);
tkInt64: (
public
  dummy : Int64;
);
tkFloat: (
public
  FloatType : TFloatType;
);
end