社区
C++ Builder
帖子详情
VARIANT 如何转换成String ?
djfu
2008-10-07 06:22:40
VARIANT 如何转换成String ?
注意VARIANT和Variant以及TVariant是有区别的
...全文
682
4
打赏
收藏
VARIANT 如何转换成String ?
VARIANT 如何转换成String ? 注意VARIANT和Variant以及TVariant是有区别的
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
nuptwzp
2008-10-08
打赏
举报
回复
__fastcall Variant(const AnsiString& src);
class RTL_DELPHIRETURN Variant: public TVarData
typedef struct tagVARIANT VARIANT;
typedef TVariantT<VARIANT, true> TVariant;
bob008
2008-10-08
打赏
举报
回复
MARK
china_jin
2008-10-08
打赏
举报
回复
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 */
}
僵哥
2008-10-07
打赏
举报
回复
Variant V(VARIANT_Value);
AnsiString Str= V;
ShowMessage(Str);
vc
Variant
类型
转换成
C
String
函数
一个
Variant
类型
转换成
C
String
的函数,调试过,可以用。
ADO中_
variant
_t变量的使用与转换
用ADO做数据库,有个麻烦的事情就是_
variant
_t变量的使用,使用本例中封装的CConvert类转换就方便了。
DELPHI
Variant
变量的使用技巧
delphi 为了完全支持OLE,32位Delphi 增加了
Variant
数据类型,本节将从宏观角度来分析这种数据类型。实际上,
Variant
类型对Pascal语言有普遍而深入的影响,Delphi 控件库中与OLE 无关的地方也使用到这种类型。
Variant
变量没有类型 一般说来,你可以用
Variant
变量存储任何数据类型,对它执行各种操作和类型转换。需要注意的是:这违反了Pascal 语言的一贯原则,有悖于良好的编程习惯。
variant
变量的类型检查和计算在运行期间才进行,编译器不会提示代码中的潜在错误,这些错误在进一步测试中才能发现。总之,你可以认为包含
variant
变量的代码是解释性代码,正如解释性代码一样,许多操作直到执行时才能知道,这对代码运行速度会有很大的影响。 上面对
Variant
类型的使用提出了警告,现在来看看
Variant
类型究竟能干什么。基本上说,如果声明了一个
variant
变量: var V:
Variant
; 你就可以把各种不同类型的值赋给它: V := 10; V := 'Hello, World'; V := 45.55; 一旦得到一个
variant
值,你可以把它拷贝给任何兼容或不兼容的数据类型。如果你把值赋给不兼容的数据类型,Delphi 会力尽所能进行转换,无法转换则颁布一个运行时间错误。实际上,
variant
变量中不仅包含了数据还包含有类型信息,并允许一系列运行时间操作,这些操作很方便,但运行速度慢且安全性差。 见例VariTest,它是上面代码的扩展。窗体上有三个编辑框,一对按钮,第一个按钮的OnClick 事件代码如下: procedure TForm1.Button1Click(Sender: TObject); var V:
Variant
; begin V := 10; Edit1.Text := V; V := 'Hello, World'; Edit2.Text := V; V := 45.55; Edit3.Text := V; end; 很有趣是不是?你可以把一个值为字符串的
variant
变量赋给编辑框Text 属性,还可以把值为整数或浮点数的
variant
变量赋给Text属性。正如你在图10.1中所看到的,一切正常。 (图10.1)按Assign按钮后,例VariTest的输出结果 图 10.1: 例 VariTest 的 Assign 按钮 Click 事件输出结果 更糟糕的是:你还可以用
variant
变量计算数值,从第二个按钮的Click事件代码就可看到这一点: procedure TForm1.Button2Click(Sender: TObject); var V:
Variant
; N: Integer; begin V := Edit1.Text; N := Integer(V) * 2; V := N; Edit1.Text := V; end; 至少这种代码带有一定危险性,如果第一个编辑框包含了一个数字,那么一切运行正常;如果不是,将会引发异常。这里再重申一遍,如果不到万不得以,不要随便使用
Variant
类型,还是应坚持使用传统的Pascal 数据类型和类型检查方法。在Delphi 和 VCL中,
variant
变量主要是用于 OLE 支持和数据库域的访问。
Variant
类型内部结构 Delphi中定义了一个
variant
记录类型,TVarData,它与
Variant
类型有相同的内存布局。你可以通过TVarData访问
variant
变量的实际类型。TVarData 结构中包含了
Variant
类型信息(由Vtype域表示)、一些保留域及当前值。 VType域的取值包括OLE 自动化中的所有数据类型,这些类型通常叫OLE 类型或
variant
类型。以下是
variant
类型的完整列表,按字母顺序排列: varArray varBoolean varByRef varCurrency varDate varDispatch varDouble varEmpty varError varInteger varNull varOleStr varSingle varSmallint var
String
varTypeMask varUnknown var
Variant
你可以在Delphi 帮助系统的
variant
s 主题下找到这些类型的说明。 还有许多操作
variant
变量的函数,你可以用它们进行特定的类型转换,或通过它们获取
variant
变量的类型信息(例如VarType 函数),当你用
variant
变量写表达式时,Delphi会自动调用这些类型转换和赋值函数。另外还有操作
variant
数组的例程,你可以通过帮助文件的
Variant
support routines 主题了解相关内容。
Variant
类型运行很慢!
Variant
类型代码运行很慢,不仅数据类型转换如此,两个值为整数的
Variant
变量相加也是如此。它们几乎跟Visual Basic这种解释性代码一样慢!为了比较
Variant
变量和整型变量的运行速度,请看例VSpeed 。 程序中设置了一个循环,记录运行时间并在进程条中显示运行状态。下面是基于
variant
类型的一段代码,基于整型的代码与此相似: procedure TForm1.Button1Click(Sender: TObject); var time1, time2: TDateTime; n1, n2:
Variant
; begin time1 := Now; n1 := 0; n2 := 0; ProgressBar1.Position := 0; while n1 < 5000000 do begin n2 := n2 + n1; Inc (n1); if (n1 mod 50000) = 0 then begin ProgressBar1.Position := n1 div 50000; Application.ProcessMessages; end; end; // we must use the result Total := n2; time2 := Now; Label1.Caption := FormatDateTime ( 'n:ss', Time2-Time1) + ' seconds'; end; 记时这段代码值得一看,因为你可以把它用到任何类型的性能测试中。正如你所看到的,程序用Now 函数获取当前的时间,用FormatDateTime 函数格式化时间差,输出结果以分("n")和秒("ss")表示。除此之外,你可以用Windows API的GetTickCount 函数,该函数能精确显示操作系统启动后至当前的毫秒数。 从上例可见两者的速度差异非常之大,以至于不用精确记时也能看到这种差异。图10.2是在本人计算机上运行程序看到的结果。当然运行结果取决于运行程序的计算机,但是两者的数值比不会有太大变化。
JAVA 对word 内容的提取返回
String
JAVA 对word 内容的提取返回
String
的代码 两种方式详细的资源描述有机会获得我们的推荐,更有利于他人下载,赚取更多积分
Excel-VBA宏编程实例源代码-转换
Variant
类型的引数.zip
Excel-VBA宏编程实例源代码-转换
Variant
类型的引数.zip
C++ Builder
13,871
社区成员
102,693
社区内容
发帖
与我相关
我的任务
C++ Builder
C++ Builder相关内容讨论区
复制链接
扫一扫
分享
社区描述
C++ Builder相关内容讨论区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章