var
dMatrix:variant; //定义变体类型
dMatrix:=VarArrayCreate([0,n-1,0,n-1],varDouble); //创建二维double型数组并指定各维的长度
定义过程(函数):Procedure TestArray(adMatrix:Variant);
程序中调用过程(函数):TestArray(dMatrix);
var
dMatrix:variant; //定义变体类型
dMatrix:=VarArrayCreate([0,n-1,0,n-1],varDouble); //创建二维double型数组并指定各维的长度
定义过程(函数):Procedure TestArray(adMatrix:Variant);
程序中调用过程(函数):TestArray(dMatrix);