在Delphi中将多维数组作为参数传递

type
  T2DArray = array of array of Integer;

function MultiplyByTwo(const A: T2DArray): T2DArray;
var
  I, J: Integer;
begin
  SetLength(Result, Length(A), Length(A[0]));
  for I := 0 to Length(A) - 1 do
    for J := 0 to Length(A[0]) - 1 do
      Result[I, J] := A[I, J] * 2;
end;

var
  A: T2DArray;
  B: T2DArray;
begin
  SetLength(A, 2, 3);
  A[0, 0] := 1;
  A[0, 1] := 2;
  A[0, 2] := 3;
  A[1, 0] := 4;
  A[1, 1] := 5;
  A[1, 2] := 6;

  B := MultiplyByTwo(A);

  // 输出结果
  for var I := 0 to Length(B) - 1 do
  begin
    for var J := 0 to Length(B[0]) - 1 do
      Write(B[I, J], ' ');
    Writeln;
  end;
end.