VarArrayOf函数使用详解

VarArrayOf的主要功能是构造一个Variant数组，通过VarArrayCreate实现：

view plaincopy to clipboardprint?
function VarArrayOf(const Values: array of Variant): Variant;  
var 
  I: Integer;  
begin 
  Result := VarArrayCreate([0, High(Values)], varVariant);  
  for I := 0 to High(Values) do 
    Result[I] := Values[I];  
end; 
function VarArrayOf(const Values: array of Variant): Variant;
var
  I: Integer;
begin
  Result := VarArrayCreate([0, High(Values)], varVariant);
  for I := 0 to High(Values) do
    Result[I] := Values[I];
end;

下面是一个使用实例：

view plaincopy to clipboardprint?
type  
  TStrArr = array of string;   // 字符串动态数组  
 
function Test(const VarArr: TStrArr): Integer;  
var  
  i: Integer;  
begin  
  Result := Length(VarArr);   // 取得动态数组的长度  
  for i := Low(VarArr) to High(VarArr) do 
    ShowMessage(VarArr[i]);   // 显示内容  
end;  
 
procedure TForm1.Button1Click(Sender: TObject);  
var  
  V: Variant;  
begin  
  V := VarArrayOf([1, 1.25, 'abc', VarArrayOf(['Test1', 'Test2', 'Test3'])]); // 创建数组  
  Test(V[3]);      // 调用  
end; 

 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/qiume/archive/2009/03/11/3979084.aspx