如上

解决方案 »

  1.   

    用C我会, 用delphi如何写,请帮帮忙!
      

  2.   

    function a(b :array of array of integer):Boolean;试一试
    如果不行
    function a(var b):Boolean;   用无类型参数来代替!
      

  3.   

    function a(b :array of array of integer):Boolean;不行,编译错误!
      

  4.   

    function a(var b):Boolean;   也不行!
      

  5.   

    type
      TArr = array of array of string;function A(var Arr: TArr): TArr;
    var
      I, J: Integer;
    begin
      SetLength(Arr, 10, 10);
      for I := 0 to 9 do
        for J := 0 to 9 do
          Arr[I, J] := IntToStr(I) + ', ' + IntToStr(J);
      Result := Arr;
    end;procedure TForm1.Button1Click(Sender: TObject);
    var
      MyArr: TArr;
      I, J: Integer;
    begin
      MyArr := A(MyArr);
      for I := 0 to 9 do
        for J := 0 to 9 do
          Memo1.Lines.Add(MyArr[I, J]);
    end;