TTypeData

type TTypeData = packed record

  case TTypeKind of

    tkUnKnown, tkLString, tkWString, tkAString, tkVariant: (

      );

    tkInteger, tkChar, tkEnumeration, tkWChar: (

        OrdType: TOrdType;

        case TTypeKind of

          tkInteger, tkChar, tkEnumeration, tkBool, tkWChar: (

              MinValue: LongInt;

              MaxValue: LongInt;

              case TTypeKind of

                tkEnumeration: (

                    BaseType: PTypeInfo;

                    NameList: ShortString;

                  );

            );

          tkSet: (

              CompType: PTypeInfo;

            );

      );

    tkFloat: (

        FloatType: TFloatType;

      );

    tkSString: (

        MaxLength: Byte;

      );

    tkClass: (

        ClassType: TClass;

        ParentInfo: PTypeInfo;

        PropCount: SmallInt;

        UnitName: ShortString;

      );

    tkMethod: (

        MethodKind: TMethodKind;

        ParamCount: Byte;

        ParamList: array [0..1023] of Char;

      );

    tkInt64: (

        MinInt64Value: Int64;

        MaxInt64Value: Int64;

      );

    tkQWord: (

        MinQWordValue: QWord;

        MaxQWordValue: QWord;

      );

    tkInterface: (

        IntfParent: PTypeInfo;

        IntfFlags: TIntfFlagsBase;

        GUID: TGUID;

        IntfUnit: ShortString;

      );

    tkInterfaceRaw: (

        RawIntfParent: PTypeInfo;

        RawIntfFlags: TIntfFlagsBase;

        IID: TGUID;

        RawIntfUnit: ShortString;

        IIDStr: ShortString;

      );

end;