如何将AnsiString转化为Variant类型？

[WiseNeuro]

我在程序中时这样利用构造函数转化的：
//--------------------------------------------
AnsiString* s = new AnsiString("ansistring") ;
Variant* vars = new Variant(&(*s)) ;
//--------------------------------------------
变异可以通过，但在运行时法现， vars 的smaill(这个参数名我记的不太清楚了)为-1，用panel1->Caption = (AnsiString)(*var) 显示出来后为true.并不是“ansistring”。

[WiseNeuro]

谢谢楼上
我试试看

[zchang81]

VARIANT vt;
VariantInit(&vt);
wchar_t* dest=WideString("字符串").Detach();
vt.vt=VT_BSTR;
vt.bstrVal=dest;
就这样，转换就成功了。

[我来看看CB]

AnsiString s = "ansistring" ;
Variant vars = Variant(s) ;

[zhyuanbaron]

直接强制转换
String str;
OleVariant(str);

[WiseNeuro]

To dxkh(沧海一粟):

AnsiString s = "ansistring" ;
Variant vars = Variant(s) ;
虽可以，但我在函数
DHTMLEdit::SaveDocument(Variant path,Variant bDialog)中却不能成功
的保从文档。
-----------------------------------------------------------------
to zchang81(__.μ吥) ，zhyuanbaron(菜--咋整阿!): 这种方法我试试。