在下面的代码中运行时出现错误，恳请各位高手帮忙指导： public procedure weights(w:D2Array;n,m:integer); procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; A:D2Array;//动态二维数组 begin weights(A;2,3);//这行就出现了错误 memo1.lines.add(floattostr(A)); end; 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 您好：    

引言: weights(A;2,3);//这行就出现了错误 有沒有可能是將,誤打成;？

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

小丫123 您好 張貼程式碼請加上 [code] // BCB, Delphi 的程式碼 [/code] 讓程式碼縮排，提高可讀性 另，相同文章問一次就好了，不要重覆發問 < class="code"> public procedure weights(w:D2Array;n,m:integer); procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; A:D2Array;//动态二维数组 begin weights(A;2,3);//这行就出现了错误 memo1.lines.add(floattostr(A)); end; 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;