怎样定义二维的Variant数组？

Question

var
  A: Variant;
begin
  A := VarArrayCreate([0, 4], varVariant);
  A[0] := 1;
  A[1] := 1234.5678;
  A[2] := 'Hello world';
  A[3] := True;
  A[4] := VarArrayOf([1, 10, 100, 1000]);
  WriteLn(A[2]); { Hello world }
  WriteLn(A[4][2]); { 100 }
end;
//兄弟，明显A[4]就是二维，如法炮制，肯定可以。

Answer 1

missile老兄，别来无恙。
因为我在使用Formula One，其中有个函数需要用到Variant或者OleVariant类型的二维数组，
100*100的，帮助上的我也试过了，能不能不要直接赋值的？

Answer 2

哈哈，好几天没上来了；哎快开学了！！！
var a:variant;
begin
        a:=VarArrayCreate([0,2,0,2],varVariant);
        ShowMessage(inttostr(VarArrayDimCount(a)));
end;

Answer 3

var a:variant;
begin
        a:=VarArrayCreate([0,2,0,2],varVariant);
        ShowMessage(inttostr(VarArrayDimCount(a)));
        VarArrayPut(a,'b',[1,1]);
        ShowMessage(String(VarArrayGet(a,[1,1])));
end;

Answer 4

almeidar():这个东西我不是找到的，我是自己试出来的，有些你要自己试一下，才知道。