VARIANT 如何转换成String ？

[djfu]

VARIANT 如何转换成String ？
注意VARIANT和Variant以及TVariant是有区别的

[僵哥]

Variant V(VARIANT_Value);
AnsiString Str= V;
ShowMessage(Str);

[china_jin]

CString VariantToString(VARIANT * va)
{
CString s;
switch(va->vt)
{ /* vt */
case VT_BSTR:
return CString(vaData->bstrVal);
case VT_BSTR | VT_BYREF:
return CString(*vaData->pbstrVal);
case VT_I4:
s.Format(_T("%d"), va->lVal);
return s;
case VT_I4 | VT_BYREF:
s.Format(_T("%d"), *va->plVal);
case VT_R8:
s.Format(_T("%f"), va->dblVal);
return s;
... remaining cases left as an Exercise For The Reader
default:
ASSERT(FALSE); // unknown VARIANT type (this ASSERT is optional)
return CString("");
} /* vt */
}

[bob008]

MARK

[nuptwzp]

__fastcall Variant(const AnsiString& src);
class RTL_DELPHIRETURN Variant: public TVarData
typedef struct tagVARIANT VARIANT;
typedef TVariantT<VARIANT, true> TVariant;