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

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.

 

参考：http://www.newasp.net/tech/program/19757.html