TInterfaceData¶

type
  TInterfaceData = packed record
    property UnitName: ShortString; {r}
    property PropertyTable: PPropData; {r}
    property MethodTable: PIntfMethodTable; {r}
    AttributeTable: PAttributeTable = ^TAttributeTable;
    case TTypeKind of
      tkInterface: (
        Parent : PPTypeInfo;
        Flags : TIntfFlagsBase;
        GUID : TGUID;
        UnitNameField : ShortString;
      );
      tkInt64: (
        dummy : Int64;
      );
      tkFloat: (
        FloatType : TFloatType;
      );
  end;