I think what Ryan is asking about is how to find the size of the
variant part of TTypeData as used in the "case TTypeKind of" section. As in:
public
{$ifdef PROVIDE_ATTR_TABLE}
AttributeTable : PAttributeTable;
{$endif}
case TTypeKind of
tkUnKnown,tkLString,tkWString,tkVariant,tkUString:
();
tkAString:
(CodePage: Word);
{$ifndef VER3_0}
tkInt64,tkQWord,
{$endif VER3_0}
tkInteger,tkChar,tkEnumeration,tkBool,tkWChar,tkSet:
(OrdType : TOrdType;
case TTypeKind of
...
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
