關於procedure調用出現錯誤的問題 |
答題得分者是:richtop
|
小丫123
初階會員 發表:85 回覆:62 積分:29 註冊:2004-08-31 發送簡訊給我 |
在下面的代码中运行时出现错误,恳请各位高手帮忙指导: 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;
|
richtop
資深會員 發表:122 回覆:646 積分:468 註冊:2003-06-10 發送簡訊給我 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
小丫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;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |