如何將10個edit元件裡的字串改為數值並且相加?? |
|
|
|
ryowu
一般會員   發表：56 回覆：25 積分：16 註冊：2002-04-23 發送簡訊給我 |
我現在有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 發送簡訊給我 |
試試下面的程式碼 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 發送簡訊給我 |
|
|
huwk
資深會員  發表：26 回覆：340 積分：323 註冊：2002-04-03 發送簡訊給我 |
發表時間：2002-06-01 15:21:06
IP:61.216.xxx.xxx 未訂閱
系統時間：2024-04-24 13:41:33
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |