如何簡化元件給值方法

發文回覆瀏覽次數：940

推到 Plurk!

推到 Facebook!

答題得分者是：shinjie

isthatu
初階會員

發表：80
回覆：47
積分：25
註冊：2002-06-26

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-02-24 14:49:15

IP:211.20.xxx.xxx 未訂閱

如提我有以下程式碼 Qrmemo1.Caption:=FrmEditTitle.Memo2.Lines[0]; Qrmemo2.Caption:=FrmEditTitle.Memo2.Lines[1]; Qrmemo3.Caption:=FrmEditTitle.Memo2.Lines[2]; Qrmemo4.Caption:=FrmEditTitle.Memo2.Lines[3]; Qrmemo5.Caption:=FrmEditTitle.Memo2.Lines[4]; Qrmemo6.Caption:=FrmEditTitle.Memo2.Lines[5]; ..... 想說改成以迴圈方式 for i:=0 to 5 do Qrmemo1.Caption:=Memo2.Lines[i]; 其中Qrmemo1.Caption 如何改成可以帶入i值得方式我記得以前做過但太久了也忘記做法好像類似這樣...姐果不對..... for i:=0 to 5 do TQRLABEL('Qrmemo' intostr(i 1)).Caption :=Memo2.Lines[i];

------
BCDEFHIJKLMNOPQRSTUVWXZ

shinjie
資深會員

發表：12
回覆：275
積分：287
註冊：2003-03-19

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-02-24 15:11:40

IP:203.73.xxx.xxx 未訂閱

要用FindComponent的方式搜尋元件名稱 Form1是指你的Form Name TQRLABEL(Form1.FindComponent('Qrmemo' intostr(i 1))).Caption :=Memo2.Lines[i];

------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。
得之；我幸。不得；我命。

系統時間：2024-05-18 5:55:58

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！