《DELPHIVariant变量的使用技巧.doc》由会员分享,可在线阅读,更多相关《DELPHIVariant变量的使用技巧.doc(8页珍藏版)》请在金锄头文库上搜索。
1、DELPHI Variant变量的使用技巧。delphi 为了完全支持OLE,32位Delphi 增加了Variant 数据类型,本节将从宏观角度来分析这种数据类型。实际上,Variant类型对Pascal语言有普遍而深入的影响,Delphi 控件库中与OLE 无关的地方也使用到这种类型。Variant变量没有类型 一般说来,你可以用Variant 变量存储任何数据类型,对它执行各种操作和类型转换。需要注意的是:这违反了Pascal 语言的一贯原则,有悖于良好的编程习惯。variant 变量的类型检查和计算在运行期间才进行,编译器不会提示代码中的潜在错误,这些错误在进一步测试中才能发现。总之,
2、你可以认为包含variant变量的代码是解释性代码,正如解释性代码一样,许多操作直到执行时才能知道,这对代码运行速度会有很大的影响。上面对Variant 类型的使用提出了警告,现在来看看Variant 类型究竟能干什么。基本上说,如果声明了一个variant 变量:varV: Variant;你就可以把各种不同类型的值赋给它:V := 10;V := Hello, World;V := 45.55;一旦得到一个variant 值,你可以把它拷贝给任何兼容或不兼容的数据类型。如果你把值赋给不兼容的数据类型,Delphi 会力尽所能进行转换,无法转换则颁布一个运行时间错误。实际上,variant变
3、量中不仅包含了数据还包含有类型信息,并允许一系列运行时间操作,这些操作很方便,但运行速度慢且安全性差。见例VariTest,它是上面代码的扩展。窗体上有三个编辑框,一对按钮,第一个按钮的OnClick 事件代码如下: procedure TForm1.Button1Click(Sender: TObject);varV: Variant;beginV := 10;Edit1.Text := V;V := Hello, World;Edit2.Text := V;V := 45.55;Edit3.Text := V;end;很有趣是不是?你可以把一个值为字符串的variant 变量赋给编辑框Te
4、xt 属性,还可以把值为整数或浮点数的variant 变量赋给Text属性。正如你在图10.1中所看到的,一切正常。(图10.1)按Assign按钮后,例VariTest的输出结果图 10.1: 例 VariTest 的 Assign 按钮 Click 事件输出结果更糟糕的是:你还可以用variant变量计算数值,从第二个按钮的Click事件代码就可看到这一点:procedure TForm1.Button2Click(Sender: TObject);varV: Variant;N: Integer;beginV := Edit1.Text;N := Integer(V) * 2;V :=
5、N;Edit1.Text := V;end;至少这种代码带有一定危险性,如果第一个编辑框包含了一个数字,那么一切运行正常;如果不是,将会引发异常。这里再重申一遍,如果不到万不得以,不要随便使用Variant 类型,还是应坚持使用传统的Pascal 数据类型和类型检查方法。在Delphi 和 VCL中,variant变量主要是用于 OLE 支持和数据库域的访问。Variant类型内部结构 Delphi中定义了一个 variant 记录类型,TVarData,它与Variant 类型有相同的内存布局。你可以通过TVarData访问variant变量的实际类型。TVarData 结构中包含了Vari
6、ant类型信息(由Vtype域表示)、一些保留域及当前值。VType域的取值包括OLE 自动化中的所有数据类型,这些类型通常叫OLE 类型或variant 类型。以下是variant 类型的完整列表,按字母顺序排列:varArray varBoolean varByRef varCurrency varDate varDispatch varDouble varEmpty varError varInteger varNull varOleStr varSingle varSmallint varString varTypeMask varUnknown varVariant 你可以在Delp
7、hi 帮助系统的variants 主题下找到这些类型的说明。还有许多操作variant 变量的函数,你可以用它们进行特定的类型转换,或通过它们获取variant变量的类型信息(例如VarType 函数),当你用variant变量写表达式时,Delphi会自动调用这些类型转换和赋值函数。另外还有操作variant 数组的例程,你可以通过帮助文件的Variant support routines 主题了解相关内容。Variant类型运行很慢! Variant 类型代码运行很慢,不仅数据类型转换如此,两个值为整数的Variant 变量相加也是如此。它们几乎跟Visual Basic这种解释性代码一样
8、慢!为了比较Variant变量和整型变量的运行速度,请看例VSpeed 。程序中设置了一个循环,记录运行时间并在进程条中显示运行状态。下面是基于variant类型的一段代码,基于整型的代码与此相似:procedure TForm1.Button1Click(Sender: TObject);vartime1, time2: TDateTime;n1, n2: Variant;begintime1 := Now;n1 := 0;n2 := 0;ProgressBar1.Position := 0;while n1 5000000 dobeginn2 := n2 + n1;Inc (n1);if
9、(n1 mod 50000) = 0 thenbeginProgressBar1.Position := n1 div 50000;Application.ProcessMessages;end;end;/ we must use the resultTotal := n2;time2 := Now;Label1.Caption := FormatDateTime (n:ss, Time2-Time1) + seconds;end;记时这段代码值得一看,因为你可以把它用到任何类型的性能测试中。正如你所看到的,程序用Now 函数获取当前的时间,用FormatDateTime 函数格式化时间差,输
10、出结果以分(n)和秒(ss)表示。除此之外,你可以用Windows API的GetTickCount 函数,该函数能精确显示操作系统启动后至当前的毫秒数。从上例可见两者的速度差异非常之大,以至于不用精确记时也能看到这种差异。图10.2是在本人计算机上运行程序看到的结果。当然运行结果取决于运行程序的计算机,但是两者的数值比不会有太大变化。Delphi笔记(整理)-变体 博客分类: 学习笔记 Delphi数据结构J#除结构类型和指针外,变体类型能存储其它的任何类型; 变体类型能存储接口,并能通过它使用接口的方法和属性(参考Object interfaces); 变体类型能存储动态数组,也能存储一种
11、特殊的静态数组:变体数组(Variant array)。 变体类型能和其它变体类型、整数、实数、字符串和布尔值在表达式和赋值语句中混合使用,编译器自动完成类型转换。 可以通过自定义来扩展变体类型,从而能存储任意值。比如,你可以定义一个使用索引的变体字符串 类型,或者让它存储特定的类引用、记录或静态数组。自定义变体类型通过TCustomVariantTyp 的子类 来创建。 所有的变体类型在创建时被初始化为Unassigned,Null 表示未知或没有数据。 赋空值:VarV:Variant;v:=vaNil;标准函数VarType 返回变体类型的类型码,常量varTypeMask 是一个位掩码
12、,用来从VarType 的返回值 中提取类型码,所以,在下面的例子中 VarType(V) and varTypeMask = varDouble 若V 包含Double 或Double 数组,则它返回True 在System 单元定义的TVarData 记录类型能被用来转换变体类型,并且可以访问它们的内部构造。 VarAsType 和VarCast 标准例程能用来改变一个Variant 的内部表示。 除了、is 和in,所有运算符都可以使用Variant 作为运算数 对Variant 的操作返回Variant 值;若有一个运算数是Null 则结果为Null; 若有一个运算数为Unassign
13、ed 则引发异常。 在二元运算中,若只有一个运算数是Variant,则另一个被转换为Variant。 不能把一个普通的静态数组赋给Variant,取而代之的是,通过调用VarArrayCreate 或VarArrayOf 两者 之一来创建Variant 数组。比如, V: Variant; . V := VarArrayCreate(0,9, varInteger); 要创建字符串类型的Variant 数组,使用varOleStr 使用VarArrayRedim 函数来更改Variant 数组的大小。其它用于Variant 数组的标准例程包括 VarArrayDimCount 、VarArra
14、yLowBound 、VarArrayHighBound 、VarArrayRef 、VarArrayLock 和VarArrayUnlock. 。Variant 和OleVariant 的主要区别是,Variant 能包含只有当前程序才能理解的数据类型, OleVariant 只包含为Ole 自动化兼容而定义的数据类型,它说明,这些数据类型能在程序间或通过网络传送, 而不必担心另一端是否知道如何处理它们。 type T1 = Integer; T2 = T1; T3 = Integer; T4 = T2; T1、T2、T3、T4 和Integer 都是指的同一种类型。要声明一种不同的类型,在
15、声明中重复type 关键字。 比如 type TMyInteger = type Integer; 创建了一种新类型TmyInteger,它和Integer 不同。 一个类型声明指定一个标志符,来表示一种数据类型。类型声明的语法为 type newTypeName = type 这里,newTypeName 是一个有效的标志符。比如,给定如下的类型声明 type TMyString = string; 你就可以声明变量 var S: TMyString; 同时声明多个变量时不能包括初始化,Variant 和文件类型的变量声明也不能初始化。 如果你没有明确地初始化一个全局变量,编译器把它初始化为0。相反,不能在声明局部变量时进行初 始化,它们的值是随机的,直到赋给它们一个值。 你可以创建一个新变量,它和另一个变量在内存的同一个位置。要这样做的话,声明这个新变量时在类 型名的后面跟关键字absolute,后面再跟一个已存在(先前声明)的变量。