为什么出来得结果都是零

procedure randomizeweight(w: D2Array; n, m: integer);
var
  i,j:integer;
begin
 setlength(w,n 1,m 1);
  for i:=0 to n do
    for j:=0 to m do
      w[i,j]:=i j 1;
end;    procedure TForm1.Button1Click(Sender: TObject);
 var
  i,j:integer;
  s:string;
  w1:D2Array;
begin
  memo1.clear;
  setlength(w1,4,5);
  randomizeweight(w1, 4,5);
 for i:=0 to 3 do
   for j:=0 to 4 do
   s:=s floattostr(w1[i,j]) '  ';
   memo1.Lines.Add(s);
end;  

这个程序错在哪里？为什么在memo上显示得结果都是0那？

因為 randomizeweight 的 w 參數與 Button1Click 中的 w1 兩個是不同的 w 參數在 randomizeweight 結束後就沒有了 w 參數的計算結果並沒有給 w1 變數 解決方式是在 randomizeweight 這個 procedure 的 w 參數前加上 var 這個字 procedure randomizeweight(var w: D2Array; n, m: integer);