function 里的错误应该怎么修改 |
|
答題得分者是：richtop
|
|
小丫123
初階會員   發表：85 回覆：62 積分：29 註冊：2004-08-31 發送簡訊給我 |
function TForm1.new1(n: integer): double;
var
MyAry:array of double;
begin
setlength(MyAry,n);
return(MyAry);//这行有错误，应该怎么修改呢？
end; procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
A:array of double;
begin
A:=new1(20);
for i:=low(A) to Height(A) do
begin
A[i]:=i;
Memo1.Lines.Add(Floattostr(A[i]));
end; end;
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
function TForm1.new1(n: integer): double;
var
MyAry:array of double;
begin
setlength(MyAry,n);
return(MyAry);//这行有错误，应该怎么修改呢？ 這是C的寫法。
Delphi 應為
Result := MyAry;
end; 不過也是錯的。 回傳為array of double 而回傳的型態為 double
不符 發表人 - wameng 於 2004/10/17 21:23:46
|
|
richtop
資深會員 發表：122 回覆：646 積分：468 註冊：2003-06-10 發送簡訊給我 |
小丫123 您好： 幫忙幫到底！這也是我曾遇過的問題。
|
發表時間：2004-10-17 20:45:59
IP:218.64.xxx.xxx 未訂閱
系統時間：2025-02-26 5:31:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |