怎样在过程中调用二维数组啊？

Question

var ts:array[1..20,1..20] of integer;
    ns:array[1..20,1..20] of integer;procedure useuse(ts:array of integer;var ns:array of integer);
begin
............
end;
调试通不过，将ts，ns改为一维数组又可以，为什么啊？该怎样调用？
谢谢了，在线等待！！！！！！！！！！！1

Answer 1

procedure useuse(ts:array of array of integer;var ns:array of array of integer);
begin
............
end;

Answer 2

procedure useuse(ts:array of array of integer;var ns:array of array of integer);
begin
............
end;
不行啊！！！！！！！！

Answer 3

靠
var ts:array[1..20,1..20] of integer;
    ns:array[1..20,1..20] of integer;procedure useuse(ts:array of integer;var ns:array of integer);
begin
............
end;
调用的时候这样写
useuse(ts[0], ns[0]);

Answer 4

那我要在useuse过程中设置ns的所有值，那怎样调用呢？

Answer 5

procedure useuse(ts:array[1..20,1..20] of integer;var ns:array[1..20,1..20] of integer);
begin
............
end;这样呢？

Answer 6

var ts:array[1..20,1..20] of integer;
    ns:array[1..20,1..20] of integer;procedure useuse(ts:array[1..20,1..20] of integer;var ns:array[1..20,1..20] of integer);
begin
............
end

Answer 7

或者
type
  tarray = array[1..20,1..20] of integer;
var
  ts, na: tarray;
procedure useuse(ts, ns: tarray);
begin
............
end;

Answer 8

楼上的，你的代码测试过没有。
楼主，如果你要在过程中设置二维数组的所有值，你可以这样做
还是用你那个二维数组
procedure use(a :array of integer;b:array of integer;size1, size2 :integer);
var
  i :integer;
begin
  for i :=0 to size1 do
    a[i] :=0;
  for i := 0 to size2 do
    b[i] :=0;
end;

Answer 9

同意 ikumei(雷欧钠德) 的！

Answer 10

对不起，参数传递的时候需要加上var
procedure use(var a, b :array of integer; size1, size2 :integer);

Answer 11

type 
  TDoubleArrSingle = array[0..2, 0..2] of Single;function GetCont(var CombH: TDoubleArrSingle; var CombHT:TDoubleArrSingle): Boolean;

Answer 12

如果想更改参数的值,当然应该在参数前使用var关键字,其实这相当于c++中的引用

Answer 13

更正
var ts:array[1..20,1..20] of integer;
    ns:array[1..20,1..20] of integer;procedure useuse(ts:array[1..20,1..20] of integer;var ns:array[1..20,1..20] of integer);
begin
............
end
这个方法是不可以的,请使用我提到的第二个方法,即声明一个二维数组类型