VarClear

1.VarArrayCreate()和VarArrayOf()这两个常用就不说了
2.VarArrayRedim()函数能修改variant数组的最高限。
3.VarArrayDimCount()函数返回Variant数组的维数,
4.VarArrayLowBound()和VarArrayHighBound()函数分别返回Variant数组的下边界和上边界。
5.VarArrayLock()和VarArrayUnlock()一般用于初始化一个大数组。
如:
它创建一个有10000字节的Variant数组。假定有另一个相同长度的非Variant类型的数组,并且想
把非variant类型的数组复制到variant类型的数组中去。通常这都是通过用循环语句对variant数组 
的单元进行赋值实现的。示例如下:
begin
v:=VarArrayCreate([1,10000],varBate);
fori:=1to10000do
v[i]:=a[i];
end;
上面这段代码的主要问题在于,大量的时间花费在对Variant数组的初始化上,因为在对每一个元
素进行赋值时,都要通过运行时逻辑来检查并判断数据类型的兼容性、每个元素的位置等等。为了避
免运行时检查,要用VarArrayLock()函数和VarArrayUnlock()过程。VarArrayLock()函数在内存中锁
定数组,使数组不再移动和改变大小,并能返回一个指向数组数据的指针。而VarArrayUnlock()过程
用来对VarArrayLock()函数锁定的数组进行解锁,使数组能重新移动或改变大小。在锁定数组后,能
用更有效的方法对数组进行初始化,例如用指向数组数据的指针调用Move()过程,下面的代码也对
Variant数组进行初始化,但它更有效:
begin
v:=VarArrayCreate([1,10000],varBate);
p:=VarArrayLock(v)
try
move(A,P^,10000);
finally
VarArrayUnlock(v);
end;
end;

6.VarArrayRef()获得variant指向的数据
7.VarIsArray()函数是一个简单的布尔检查函数,如果传递给它的参数是一个Variant数组则返回True,否则返回False.
8.VarClear()过程清除Variant变量并将VType域的值设为varEmpty.
9.VarCopy()将Source复制到Dest。
10.VarCast()将一个Variant转换成指定的类型并存储在另一个Variant变量中。
11.VarType()返回指定Variant的varXXX类型代码。
12.VarAsType()跟VarCast()的功能一样。
13.VarIsEmpty()如果一个Variant变量的类型代码是varEmpty则返回True。
14.VarIsNull()判断Variant变量是否包含null值。
15.VarToStr()将一个Variant变量转换成字符串表达式(如果Variant为varEmpty或varNUll则为空字符
串)。
16.VarFromDateTime()返回一个Variant变量,它存放着指定的TDateTime类型的值。
17.VarToDateTime()返回在Variant中的TDateTime类型的值。

时间: 2024-10-01 21:31:01

VarClear的相关文章

Delphi常用系统函数总结

字符串处理函数 Unit System 函数原型 function Concat(s1 [, s2,..., sn]: string): string; 说明 与 S := S1 + S2 + S3 ...; 相同. 将字符串相加. 函数原型 function Copy(S: string; Index, Count: Integer): string;说明 S : 字符串. Indexd : 从第几位开始拷贝. Count : 总共要拷贝几位. 从母字符串拷贝至另一个字符串. 函数原型 pro

DELPHI下API简述(1800个API)

DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属设备数量 auxGetVolume API 获取当前卷设置 auxOutMessage API 向输出设备发送消息 auxSetVolume API 设置附属设备卷 AbortDoc API 终止一项打印作业 AbortPath API 终止或取消DC中的一切路径 AbortPrinter API

delphi控件属性大全-详解-简介

button 组件: CAPTION 属性 :用于在按钮上显示文本内容Cancel     属性:是否设置成默认的取消按钮,当设置为真的时候(true) 按ESC触发改按钮的事件!Default 属性:是否设置成默认的确认按钮,当设置为真的时候 按ENTER键的时候触发事件Hint 属性:设置当鼠标在按钮上短暂停留是显示的提示内容.Showhint 属性: 是否显示提示内容默认为假! Bitbtn 组件Kind 属性: 他的值就是位图按钮组件上所显示的图标!GLYPH 属性: 用于在位图按钮上显

delphi控件属性和事件

常用[属性] Action:该属性是与组件关联的行为,允许应用程序集中响应用户命令 Anchors:与组件连接的窗体的位置点 Align:确定组件的对齐方式 AutoSize:确定组件是否自动调整其大小 BiDiMode:(所有组件) 为从右向左写的语言提供支持 BoundsRect:定义组件边框矩形(只适用于运行时) Borderwidth:(窗口化组件)边框的宽度 BorberStyle:设置组件边框形状(样式) Brush:可确定组件的风格和颜色 Caption:使用该属性可指定标注组件的

[转]Delphi 变体类型(Variant)的介绍(流与变体类型的相互转换、变体类型常用的函数)

Delphi 变体类型(Variant)的介绍(流与变体类型的相互转换.变体类型常用的函数) 一.变体类型常用的函数介绍: Variant: 一种可以拥有各种数据类型: 也可以告诉目前存储的数据是什么类型(通过使用VarType函数): 可以给相同的Variant分配不同的数据类型,只要Variant包含数字值就可以执行算法: variant数组只不过是variant型的数组,不必包含同类型的数据: 1.  VarArrayOf函数:更快捷的创建一维变体数组,可以创建全异的数值数组: funct

两个DataGridEHToExcel

procedure TForm1.N1Click(Sender: TObject); var    GridtoExcel: TDBGridEhToExcel; begin    try    GridtoExcel := TDBGridEhToExcel.Create(nil);    GridtoExcel.DBGridEh := DBGridEh1;         //需要导出数据的DBGridEh文件名    GridtoExcel.TitleName := 'EXCEL的标题';  

[DIOCP3/MyBean/QDAC开源项目] DataModule-DB例子基于MyBean的插件实例<三层数据库方案>

[说明] 这个例子答应大家很久了,一直没有时间弄,现在正式结合MyBean插件可以很方便的在客户端共享操作连接,执行数据库的各项工作,屏蔽了底层的通信解码器编码等工作,直接传递Variant,给了开发者足够的领活和自由. [服务端使用技术] diocp3:担当底层的通信任务. qworker/iocpTask:担当业务逻辑的处理工作,diocp3接受数据解码后用qworker/iocpTask将数据包投递出来,这样不用占用通信线程. qmsgpack:负责将传递的将variant数据打包到流,从

Delphi常用函数

Abort                      函数 引起放弃的意外处理 Abs(real)                  函数 绝对值函数 AddExitProc                函数 将一过程添加到运行时库的结束过程表中 Addr(variant)              函数 返回指定对象的地址 AdjustLineBreaks           函数 将给定字符串的行分隔符调整为CR/LF序列 AllocMem                   函数 在堆栈

delphi常用函数大全(转)

Abort函数引起放弃的意外处理Abs函数绝对值函数AddExitProc函数将一过程添加到运行时库的结束过程表中Addr函数返回指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块AllowGrayed属性允许一个灰度选择AnsiCompareStr函数比较字符串(区分大小写)AnsiCompareText函数比较字符串(不区分大小写)A