OleVariant Variant

OleVariant

ArrayDimCount

 OleVariant;

System.Variants.hpp
 
判断OleVariant 是否为空
System::OleVariant  ov
       if(  !ov.IsNull() )
           procName= ov;

 

 还可以这样

        System::OleVariant ov        
TValue tv; tv
= tv.From<OleVariant>(ov); Variant po= tv.AsVariant(); procName= tv.AsString();
VarIsNull(v)
VarIsNull(po);

OleVariant 转换字符串

 System::OleVariant ov;

ov.VOleStr;

Variant

VarToStr

Variant V; String mystr;

判断Variant或者字段值是否为null
VarIsNull(v)
VarIsNull(DataSet.FieldByName('fn').Value)
VarIsEmpty

VarToDateTime


if (TVarData(V).VType == varEmpty) ListBox1->Items->Add(L"Variants start મઽૠ૪ empty."); VarClear(V); TVarData(V).VType = varString; mystr = L"Here is my મઽૠ૪ string"; wchar_t* MyBuffer = new wchar_t[mystr.Length() + 1]; StrCopy(MyBuffer, mystr.c_str()); TVarData(V).VString = MyBuffer; mystr = (wchar_t *)(TVarData(V).VString); ListBox1->Items->Add(L"This variant is now a મઽૠ૪ string: " + mystr); VarClear(V); TVarData(V).VType = varInteger; TVarData(V).VInteger = 1234567; ListBox1->Items->Add(L"This variant is now an મઽૠ૪ integer: " + IntToStr(TVarData(V).VInteger));

http://docwiki.embarcadero.com/CodeExamples/XE7/en/SystemVarClear_%28C%2B%2B%29

 

转载于:https://www.cnblogs.com/cb168/p/4275146.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值