OleVariant-Unterstützung in Delphi?

[DGL-luke]

Hallo,

ich habe inzwischen auch die C-Makros gefunden, die "V_VT(X)" definieren. abhängig von bestimmten Compiler-charakteristika (?) ist das entweder einfach

Code:

((X)->vt)

was natürlich zu einem spontanten "Häääää? Warum funktioniert mein Code nicht?!" führt, oder

Code:

((X)->__VARIANT_NAME_1.__VARIANT_NAME_2.vt)

Was zu einem noch größeren "Häääääää?" führt.

Kann mir denn niemand helfen?

Hier nochmal das komplette:

Code:

#define V_UNION(X,Y) ((X)->__VARIANT_NAME_1.__VARIANT_NAME_2.__VARIANT_NAME_3.Y)
        #define V_VT(X) ((X)->__VARIANT_NAME_1.__VARIANT_NAME_2.vt)
        #else
        #define V_UNION(X,Y) ((X)->Y)
        #define V_VT(X) ((X)->vt)

(Google Codesearch nach "V_VT", erste ergebnisse)