VARIANT变量如何赋一个整数值？

[houji]

在bcb6程序中，如何把整数赋值给一个VARIANT类型的变量，要引用.h文件吗？

[kingcaiyao]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vInteger(4);//这样就将整数4赋给了一个Variant变量.
....
}

[foreveryday007]

學習

[kingcaiyao]

如果反过来，将这个Variant类型的数据赋给一个整型,就这样:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int vv=vInteger.AsType(varInteger);
}

[houji]

多谢kingcaiyao,Variant aa= vInteger(4);会报call to undefine function 'vInteger'错,如果直接aa= vInteger(4);报cannot convert 'int' to 'tagVariant'.是不是要引用头文件？

[kingcaiyao]

对你没有包含头文件
应该包含:
#include <sysvari.h>
#include <oleauto.hpp>

[sjd163]

关注

[xiaoguoru]

我告诉你吧,根本就不要引用关文件,看下面的例子,我试过的:
Variant s;
s.vt = VT_INT;
s.iVal = 5;
ShowMessage(IntToStr(s.iVal));

[xiaoguoru]

我的意思是说不要再额外引用头文件,上面的例了我就没有引入额外头文件.

[kingcaiyao]

楼上的，我没有试过你的代码，但我用上面我的方法是要包含头文件的。

[xiaoguoru]

kingcaiyao(AKing):
其实我也从你那里学到一种方法,我要感谢你.