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;
转载于:https://www.cnblogs.com/yooplmqj/archive/2008/06/30/1232296.html
转载于:https://www.cnblogs.com/yooplmqj/archive/2008/06/30/1232296.html