• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中的变体Variant数组相关函数

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1.VarArrayCreate

procedure TForm1.Button1Click(Sender: TObject);
var
  V, W : Variant;
  i : Integer;
begin
  V := VarArrayCreate([1,4], varVariant);
  V[1] := 1;
  V[2] := '2';
  V[3] := True;
  V[4] := 4.5;

  for i := VarArrayLowBound(V, 1) to VarArrayHighBound(V, 1) do
  begin
    Memo1.Lines.Add(V[i])
  end;

W := VarArrayCreate([1,2, 1,3], varInteger);      //二维

end;

注:数组上下线取值函数不能使用Low/High,而是VarArrayLowBound/VarArrayHighBound,其第二个参数为数组维数。

2.VarArrayOf

更快捷的创建变体数组的函数,例如:V := VarArrayOf([1, '2', True, 4.5]);

3.VarArrayRedim

调整变体数组上下限

4.VarArrayDimCount

范围变体数组维数

5.VarArrayLowBound/VarArrayHighBound

返回变体数组上/下限

6.VarArrayLock/VarArrayUnlock

避免运行时刻检查。一般用于初始化一个大数组。

例如:假设已经存在大数组A,现试图复制该数组时使用如下代码:

  V := VarArrayCreate([1, 10000], varByte);
  for i := 1 to 10000 do
    V[i] = A[i];

但是这段代码的性能是有问题的,这样会把大量的时间花费在对Variant数组的初始化上,因为在对每一个元素进行赋值时,都要通过运行时逻辑来检查并判断数据类型的兼容性、每个元素的位置等等。为了避免运行时检查,要用VarArrayLock()函数和VarArrayUnlock()过程。arArrayLock()函数在内存中锁定数组,使数组不再移动和改变大小,并能返回一个指向数组数据的指针。而VarArrayUnlock()过程
用来对VarArrayLock()函数锁定的数组进行解锁,使数组能重新移动或改变大小。在锁定数组后,能用更有效的方法对数组进行初始化,例如用指向数组数据的指针调用Move()过程,下面的代码也对Variant数组进行初始化,但它更有效:

begin
  v:=VarArrayCreate([1,10000],varBate);
  p:=VarArrayLock(v)
  try
    move(A,P^,10000);
  finally
    VarArrayUnlock(v);
  end;
end;

7.VarArrayRef

获得variant指向的数据

8.VarIsArray

函数是一个简单的布尔检查函数,如果传递给它的参数是一个Variant数组则返回True,否则返回False.


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类型的值。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi的对话框窗体发布时间:2022-07-18
下一篇:
Delphi的保存文件对话框-TsaveDialog发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap