多维动态数组作为函数传递参数

var 

dMatrix:variant; //定义变体类型
 dMatrix:=VarArrayCreate([0,n-1,0,n-1],varDouble); //创建二维double型数组并指定各维的长度

定义过程（函数）：Procedure TestArray(adMatrix:Variant);
程序中调用过程（函数）：TestArray(dMatrix);