2008年6月30日
创建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; 阅读全文
posted @ 2008-06-30 10:32 ypq 阅读(555) 评论(0) 推荐(0)