创建variant二维数组 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;