菜鸟提问:关于二维数组的问题!

Question

小弟写了个动态二维数组这样赋值:
implementation
procedure getnumber(x:Integer;y:Integer);
var
 i,j:Integer;
begin
       SetLength(juzhen1,x,y);  {从外部传参}
       for  i := 0 to y - 1 do
       begin
         for j := 0 to x-1 do
         begin
              juzhen1[i][j]:=StrToInt(InputBox(IntToStr(i)+'.'+IntToStr(j),'write a integer please',' '));         end;       end;end;
end.
可是一赋完值就说内存的一个地址要求写入0000002的地址内容 出错 也不知道这是为什么呀?谢谢!

Answer 1

      for  i := 0 to x - 1 do 
      begin 
        for j := 0 to y-1 do 
        begin 
....._______________________________
或者：
juzhen1[j][i]:= ...