VarArrayOf函数使用详解

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

[delphi]   view plain copy

1. function VarArrayOf(const Values: array of Variant): Variant;  
2. var  
3.   I: Integer;  
4. begin  
5.   Result := VarArrayCreate([0, High(Values)], varVariant);  
6.   for I := 0 to High(Values) do  
7.     Result[I] := Values[I];  
8. end;  

 

下面是一个使用实例：

[c-sharp]   view plain copy

1. type  
2.   TStrArr = array of string;   // 字符串动态数组  
3.   
4. function Test(const VarArr: TStrArr): Integer;  
5. var  
6.   i: Integer;  
7. begin  
8.   Result := Length(VarArr);   // 取得动态数组的长度  
9.   for i := Low(VarArr) to High(VarArr) do  
10.     ShowMessage(VarArr[i]);   // 显示内容  
11. end;  
12.   
13. procedure TForm1.Button1Click(Sender: TObject);  
14. var  
15.   V: Variant;  
16. begin  
17.   V := VarArrayOf([1, 1.25, 'abc', VarArrayOf(['Test1', 'Test2', 'Test3'])]); // 创建数组  
18.   Test(V[3]);      // 调用  
19. end;