全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1871
推到 Plurk!
推到 Facebook!

SetLength()用法

答題得分者是:wnhoo
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-05-22 15:50:28 IP:61.66.xxx.xxx 未訂閱
請問各位:    
TForm1.Myfunction(var myAry: array of string; Arycount: integer): boolean;
begin
   ....
   ....
   SetLength(myAry,Arycount);
   
   這列compiler出現 Incompatible type
   
end;    如果是下列方式則沒有問題    TForm1.Myfunction(var myAry: array of string; Arycount: integer): boolean;
   var myAry1: array of String;
begin
   ....
   ....
   SetLength(myAry1,Arycount);
end;    
請問, 我要如何讓myAry可以在第一式中動態決定陣列長度?
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-05-22 16:06:41 IP:218.16.xxx.xxx 未訂閱
參看 Help File 的 "Array parameters" 及 "Open array parameters"    要先 Type 了 它
Type 
  TMyAry = array of string;    TForm1.Myfunction(var myAry: TMyAry; Arycount: integer): boolean;
begin
   ....
   ....
   SetLength(myAry,Arycount);
end;
打了半不大肯定,又搜尋了一下,供參考 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30503
wnhoo
高階會員


發表:75
回覆:443
積分:198
註冊:2003-04-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-05-22 16:12:25 IP:61.155.xxx.xxx 未訂閱
Justmade 兄的速度就是比我们快,但是已经POST了,就只好算了。     type str=array of string ; implementation {$R *.dfm} function Myfunction(var myAry:str; Arycount: integer):boolean; begin SetLength(myAry,Arycount); result:=true; end; 风花雪月 e梦情缘
發表人 - wnhoo 於 2003/05/22 16:15:26 發表人 - wnhoo 於 2003/05/22 16:17:03
------
风花雪月 e梦情缘
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-05-22 18:29:32 IP:61.66.xxx.xxx 未訂閱
感謝兩位指導! 應該要給 Justmade 兄的, 不過這回給 wnhoo, 還望 Justmade 不要介意哦!
Justmade
版主


發表:94
回覆:1934
積分:2030
註冊:2003-03-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-05-22 18:48:56 IP:218.16.xxx.xxx 未訂閱
沒關係,這篇大家 post 的時間都差不多哩。
系統時間:2024-05-16 20:45:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!