导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/3/19 13:58:51
标题:
加入我的收藏
楼主:
现有十个TEdit 控件,并取好的名字如:X1..X10,现要用一个变量名如T来访问其中一个TEdit,该如何实现.请指教!
----------------------------------------------
-
作者:
2004/3/19 14:19:43
1楼:
var t: Tedit; begin t := edit1; end;
----------------------------------------------
男儿贵展平生志,为国输忠合天地。甲穿虽则失黄金,剑缺犹能生紫气。塞草萋萋兵士苦,胡虏如今勿胡虏。封侯十万始无心,玉关生入君看取。 敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯,让我们共同成长!
作者:
2004/3/19 14:32:05
2楼:
再请问easykey兄: 我如何用t对这十个的TEdit属性Text进行批量修改?要写十次吗? 谢谢!
----------------------------------------------
-
作者:
2004/3/19 14:35:01
3楼:
要看具体情况,循环一定是要用了
----------------------------------------------
男儿贵展平生志,为国输忠合天地。甲穿虽则失黄金,剑缺犹能生紫气。塞草萋萋兵士苦,胡虏如今勿胡虏。封侯十万始无心,玉关生入君看取。 敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯,让我们共同成长!
作者:
2004/3/19 14:42:07
4楼:
首先谢谢您(easykey)的热情回答,现在就是这个循环如何写?能给个例子吗?再次谢谢。
----------------------------------------------
-
作者:
2004/3/19 15:18:35
5楼:
如果窗体中仅有这十个edit,如下: procedure TForm1.Button1Click(Sender: TObject); var t: Tedit; i: integer; begin for i := 0 to componentCount -1 do begin if components[i] is Tedit then t := Tedit(components[i]); t.Text := '; end; end;
----------------------------------------------
男儿贵展平生志,为国输忠合天地。甲穿虽则失黄金,剑缺犹能生紫气。塞草萋萋兵士苦,胡虏如今勿胡虏。封侯十万始无心,玉关生入君看取。 敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯,让我们共同成长!
作者:
2004/3/20 8:49:47
6楼:
谢谢easykey兄!
----------------------------------------------
-