procedure TForm1.weights(w: D2Array; n, m: integer);
var
   i,j:integer;
begin       {setlength(w,m);
   for i:=low(w) to high(w) do
   setlength(w[i],n);} 这一段必须可以省去吗？       for i:=0 to m do
   for j:=0 to n do
   w[i,j]:=n m;
end;

引言:

小丫123您好：
procedure TForm1.weights(w: D2Array; n, m: integer);
var
   i,j:integer;
begin       {setlength(w,m);
   for i:=low(w) to high(w) do
   setlength(w[i],n);} 这一段必须可以省去吗？
作用：初始化数组,定义数组为m*n阵列方式
Setlength两次，第一次设行，第二次设列：
var a: array of array of Integer;
SetLength(a,10);
SetLength(a[2],5);
这种方式每一行的列数可以不一样
如上您可以访问a[2][0]到a[2][4]的数据； 
或者直接这样
SetLength(a,10,5)
这种方式每一行的列数一样
所以上段不能省去；当然也可以直接改为：
SetLength(w,m,n);       for i:=0 to m-1 do //应-1 不然超出您所定义的数组范围
   for j:=0 to n-1 do
   w[i,j]:=n m;
end;
找了两篇关于数组的介绍，参考看看：
http://www.puiching.edu.hk/~wtchung/trace/CPP/cpp15_c.htm
http://imil.au.edu.tw/~hsichcl/TurboC/C_Unit10.htm
试试看
    < face="Verdana, Arial, Helvetica">    ——行径窄处，留一步与人行——