初学者问题：数组怎么作为参数进行传递？

Question

我定义了一个byte型二维数组，怎么样将它作为参数进行传递呢？还有可以对数组进行A[2][2]:=((1,1)(1,1))这样直接赋值吗？

Answer 1

函数的参数就如下所示：
type
  TmyTyoe = array of array of Integer;
var 
  V: TmyType;
func(a: TmyType);

Answer 2

好像有这样的例子吧
procedure A(a[][]: array of byte);
或者是
procedure A(a: array of byte);
很长时间没写代码,记得不清楚啦.

Answer 3

当然可以
函数的参数就如下所示：
type
  TmyTyoe = array of array of Integer;
var 
  V: TmyType;
func(a: TmyType);

Answer 4

type
  TMyArray = array[0..2,0..2] of byte;var
  A: TMyArray = ((1,1,1),(1,1,1),(1,1,1));function Test(T: TMyArray): Integer;
var
  I, J: Integer;
begin
  Result := 0;
  for I := 0 to 2 do
    for J := 0 to 2 do
      Result := Result + T[I,J];
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Test(A)));
end;