DELPHIVariant变量的运用技巧

DELPHIVariant变量的使用技巧。。。。。。delphi为了完全支持OLE，32位Delphi增加了Variant数据类型，本节将从宏观角度来分析这种数据类型。实际上，Variant类型对Pascal语言有普遍而深入的影响，Delphi控件库中与OLE无关的地方也使用到这种类型。Variant变量没有类型一般说来，你可以用Variant变量存储任何数据类型，对它执行各种操作和类型转换。需要注意的是：这违反了Pascal语言的一贯原则，有悖于良好的编程习惯。variant变量的类型检查和计算在运行期间才进行，编译器不会提示代码中的潜在错误，这些错误在进一步测试中才能发现。总之，你可以认为包含variant变量的代码是解释性代码，正如解释性代码一样，许多操作直到执行时才能知道，这对代码运行速度会有很大的影响。上面对Variant类型的使用提出了警告，现在来看看Variant类型究竟能干什么。基本上说，如果声明了一个variant变量：varV:Variant;你就可以把各种不同类型的值赋给它：V:=10;V:='Hello,World';V:=45.55;一旦得到一个variant值，你可以把它拷贝给任何兼容或不兼容的数据类型。如果你把值赋给不兼容的数据类型，Delphi会力尽所能进行转换，无法转换则颁布一个运行时间错误。实际上，variant变量中不仅包含了数据还包含有类型信息，并允许一系列运行时间操作,这些操作很方便，但运行速度慢且安全性差。见例VariTest，它是上面代码的扩展。窗体上有三个编辑框，一对按钮，第一个按钮的OnClick事件代码如下：procedureTForm1.Button1Click(Sender:TObject);varV:Variant;beginV:=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事件代码就可看到这一点：procedureTForm1.Button2Click(Sender:TObject);varV:Variant;N:Integer;beginV:=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类型的完整列表，按字母顺序排列：varArrayvarBooleanvarByRefvarCurrencyvarDatevarDispatchvarDoublevarEmptyvarErrorvarIntegervarNullvarOleStrvarSinglevarSmallintvarStringvarTypeMaskvarUnknownvarVariant你可以在Delphi帮助系统的variants主题下找到这些类型的说明。还有许多操作variant变量的函数，你可以用它们进行特定的类型转换，或通过它们获取variant变量的类型信息（例如VarType函数），当你用variant变量写表达式时，Delphi会自动调用这些类型转换和赋值函数。另外还有操作variant数组的例程，你可以通过帮助文件的Variantsupportroutines主题了解相关内容。Variant类型运行很慢！Variant类型代码运行很慢，不仅数据类型转换如此，两个值为整数的Variant变量相加也是如此。它们几乎跟VisualBasic这种解释性代码一样慢！为了比较Variant变量和整型变量的运行速度，请看例VSpeed。程序中设置了一个循环，记录运行时间并在进程条中显示运行状态。下面是基于variant类型的一段代码，基于整型的代码与此相似：procedureTForm1.Button1Click(Sender:TObject);vartime1,time2:TDateTime;n1,n2:Variant;begintime1:=Now;n1:=0;n2:=0;ProgressBar1.Position:=0;whilen1<5000000dobeginn2:=n2+n1;Inc(n1);if(n1mod50000)=0thenbeginProgressBar1.Position:=n1div50000;Application.ProcessMessages;end;end;//wemustusetheresultTotal:=n2;time2:=Now;Labell.Caption:=FormatDateTime('n:ss',Time2-Time1)+'seconds';end;记时这段代码值得一看，因为你可以把它用到任何类型的性能测试中。正如你所看到的，程序用Now函数获取当前的时间，用FormatDateTime函数格式化时间差，输出结果以分("n")和秒("ss")表示。除此之外，你可以用WindowsAPI的GetTickCount函数,该函数能精确显示操作系统启动后至当前的毫秒数。从上例可见两者的速度差异非常之大，以至于不用精确记时也能看到这种差异。图10.2是在本人计算机上运行程序看到的结果。当然运行结果取决于运行程序的计算机，但是两者的数值比不会有太大变化。Delphi笔记(整理)-变体博客分类：*学习笔记Delphi数据结构J#除结构类型和指针外，变体类型能存储其它的任何类型；变体类型能存储接口，并能通过它使用接口的方法和属性(参考Objectinterfaces)；变体类型能存储动态数组，也能存储一种特殊的静态数组：变体数组(Variantarray)。变体类型能和其它变体类型、整数、实数、字符串和布尔值在表达式和赋值语句中混合使用，编译器自动完成类型转换。可以通过自定义来扩展变体类型，从而能存储任意值。比如，你可以定义一个使用索引的变体字符串类型，或者让它存储特定的类引用、记录或静态数组。自定义变体类型通过TCustomVariantTyp的子类来创建。所有的变体类型在创建时被初始化为Unassigned.Null表示未知或没有数据。赋空值：VarV:Variant;v:=vaNil;标准函数VarType返回变体类型的类型码，常量varTypeMask是一个位掩码，用来从VarType的返回值中提取类型码，所以，在下面的例子中VarType(V)andvarTypeMask=varDouble若V包含Double或Double数组，则它返回True在System单元定义的TVarData记录类型能被用来转换变体类型，并且可以访问它们的内部构造。VarAsType和VarCast标准例程能用来改变一个Variant的内部表示。除了人、is和in，所有运算符都可以使用Variant作为运算数对Variant的操作返回Variant值；若有一个运算数是Null则结果为Null；若有一个运算数为Unassigned则引发异常。在二元运算中，若只有一个运算数是Variant，则另一个被转换为Variant。不能把一个普通的静态数组赋给Variant，取而代之的是，通过调用VarArrayCreate或VarArrayOf两者之一来创建Variant数组。比如，V:Variant;V:=VarArrayCreate([0,9],varInteger);要创建字符串类型的Variant数组，使用varOleStr使用VarArrayRedim函数来更改Variant数组的大小。其它用于Variant数组的标准例程包括VarArrayDimCount、VarArrayLowBound、VarArrayHighBound、VarArrayRef、VarArrayLock和VarArrayUnlock.。Variant和OleVariant的主要区别是，Variant能包含只有当前程序才能理解的数据类型，OleVariant只包含为Ole自动化兼容而定义的数据类型，它说明，这些数据类型能在程序间或通过网络传送，而不必担心另一端是否知道如何处理它们。typeT1=Integer;T2=T1;T3=Integer;T4=T2;T1、T2、T3、T4和Integer都是指的同一种类型。要声明一种不同的类型，在声明中重复type关键字。比如typeTMyInteger=typeInteger;创建了一种新类型TmyInteger，它和Integer不同。一个类型声明指定一个标志符，来表示一种数据类型。类型声明的语法为typenewTypeName=type这里，newTypeName是一个有效的标志符。比如，给定如下的类型声明typeTMyString=string;你就可以声明变量varS:TMyString;同时声明多个变量时不能包括初始化，Variant和文件类型的变量声明也不能初始化。0。相反，不能在声明局部变量时进行初如果你没有明确地初始化一个全局变量，编译器把它初始化为始化，它们的值是随机的，直到赋给它们一个值你可以创建一个新变量，它和另一个变量在内存的同一个位置。要这样做的话，声明这个新变量时在类型名的后面跟关键字absolute，后面再跟一个已存在（先前声明）的变量。比如，varStr:string[32];StrLen:ByteabsoluteStr;指定变量StrLen从Str的地址开始。因为短字符串的第一个字节包含字符串的长度，StrLen的值就是Str的长度。使用absolute声明时不能初始化变量，也不能组合其它指示字（和absolute一同使用）。可以调用GetMem或New过程来创建动态变量，这种变量在堆中分配内存，它们不能自动管理。使用FreeMem来释放由GetMem创建的变量，使用Dispose释放由New创建的变量。其它能作用于动态变量的标准例程包括ReallocMem、Initialize、StrAlloc和StrDispose。声明线程局部变量时，使用threadvar，而不是var，比如，threadvarX:Integer;线程变量声明?不能出现在过程或函数中?不能包含初始化?不能指定absolute指示字不能创建指针或过程类型的线程变量，也不能在动态调入库中使用线程变量（除了包）。由编译器管理的动态变量，即长字符串、宽字符串、动态数组、Variants和接口，能被声明为threadvar，但编译器不能自动释放由每个线程创建的堆内存。若使用这些类型的线程变量，要负责释放它们的内存。资源字符串的声明像真常量，除了用resourcestring代替const。表达式等号的右边必须是常量表达式并且返回一个字符串。在默认的{$J-}编译状态下，类型常量不能被赋予新值，实际上，它们是只读变量；但如果使用了{$J+}编译器指示字，类型常量能被赋予新值，它们在本质上就像初始化的变量。要声明数组常量，把数组元素的值用括号括起来，值之间用逗号隔开，这些值必须是常量表达式。比如，constDigits:array[0..9]ofChar=（'0','1','2','3','4','5','6','7','8','9'）;0123456789上面的声明可以方便地表示为constDigits:array[0..9]ofChar=要声明一个记录常量，在括号中使用fieldName:value的形式来指定每个字段的值，每个字段用分号隔开。每个字段的值必须是常量表达式。字段列出的顺序必须和声明的相同，若有tag字段，则必须指定它的值；若记录有一个举例如下：Variant部分，只有tag字段选定的Variant才能被赋值。typeTPoint=recordX,Y:Single;end;TVector=array[0..1]ofTPoint;TMonth=(Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec);TDate=recordD:1..31;M:TMonth;Y:1900..1999;end;constOrigin:TPoint=(X:0.0;Y:0.0);Line:TVector=((X:-3.1;Y:1.5),(X:5.8;Y:3.0));SomeDay:TDate=(D:2;M:Dec;Y:1960);记录常量不能包含文件类型的值。