線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1407
推到 Plurk!
推到 Facebook!

如何將10個edit元件裡的字串改為數值並且相加??

 
ryowu
一般會員


發表:56
回覆:25
積分:16
註冊:2002-04-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-06-01 15:21:06 IP:61.216.xxx.xxx 未訂閱
我現在有10個Edit的元件,各別在元件裡輸入數字後傳到edit11.text裡... 程式碼如下 edit11.text:=inttostr(strtoint(edit1.text) strtoint(edit2.text) strtoint(edit3.text) strtoint(edit4.text) strtoint(edit5.text) strtoint(edit6.text) strtoint(edit7.text) strtoint(edit8.text) strtoint(edit9.text) strtoint(edit10.text)); 雖然可以執行ok,但是我想用迴圈的方式來做,該怎麼做??
firefall
一般會員


發表:22
回覆:36
積分:11
註冊:2002-05-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-06-01 19:04:43 IP:61.70.xxx.xxx 未訂閱
試試下面的程式碼    var    i,sum:integer;    s1:string;    Myedit:TComponent; begin        sum:=0;        for i := 1 to 10 do        begin          MyEdit := FindComponent(xEditx+ inttostr(i));          if (MyEdit is TEdit) then             begin               s1:=TEdit(MyEdit).Text;               sum:=sum+strtoint(s1);             end;          edit11.Text:=inttostr(sum);        end; end;        
引言: 我現在有10個Edit的元件,各別在元件裡輸入數字後傳到edit11.text裡... 程式碼如下 edit11.text:=inttostr(strtoint(edit1.text) strtoint(edit2.text) strtoint(edit3.text) strtoint(edit4.text) strtoint(edit5.text) strtoint(edit6.text) strtoint(edit7.text) strtoint(edit8.text) strtoint(edit9.text) strtoint(edit10.text)); 雖然可以執行ok,但是我想用迴圈的方式來做,該怎麼做??
ryowu
一般會員


發表:56
回覆:25
積分:16
註冊:2002-04-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-06-01 20:38:00 IP:61.217.xxx.xxx 未訂閱
謝謝答覆!!! 但是MyEdit := FindComponent(xEditx inttostr(i));這一段的程式碼好像有錯。 小弟試就xEditx改為xEditx,執行後就ok了....
huwk
資深會員


發表:26
回覆:340
積分:323
註冊:2002-04-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2002-06-01 23:42:20 IP:210.85.xxx.xxx 未訂閱
引言: 謝謝答覆!!! 但是MyEdit := FindComponent(xEditx inttostr(i));這一段的程式碼好像有錯。 小弟試就xEditx改為xEditx,執行後就ok了....
 
1.xeditx??  應是指常數吧...
  宣告成 edit..
2.或是 字串  edit
發表人 - huwk 於 2002/06/01 23:43:27
------
熊的學習 http://huwk.blogspot.com
系統時間:2017-10-23 5:13:53
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!