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;