Delphi 二维数组作为参数 注意方法

delphi中数组作为参数传递,要将数组作为一个类去传递

如下例子所示：

type
ArrayType = array[0..3] of Integer;
pArray = ^ArrayType;

var
ArrayType1: ArrayType;
Array_pointer: pArray;
J: Integer;
begin
for J := 0 to High(ArrayType1) do
ArrayType1[j] := j;
Array_pointer := @ArrayType1;
fun(Array_pointer^);
end;

//显示二维数组内容
procedure fun(Test: array of ArrayType);
var
I, J: Integer;
begin
for I := 0 to High(Test) do
for J := 0 to High(ArrayType) do
ShowMessage(IntToStr(Test[I,J]));
end;