DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: deliping
今日帖子: 2
在线用户: 6
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 sim888 ★☆☆☆☆ -
盒子活跃会员
2004/3/19 13:58:51
标题:
如何用变量来访问控件对象? 浏览:988
加入我的收藏
楼主: 现有十个TEdit 控件,并取好的名字如:X1..X10,现要用一个变量名如T来访问其中一个TEdit,该如何实现.请指教!
----------------------------------------------
-
作者:
男 easykey (悠游) ★☆☆☆☆ -
盒子活跃会员
2004/3/19 14:19:43
1楼: var
  t: Tedit;
begin
  t := edit1;
end;
----------------------------------------------
按此在新窗口浏览图片
男儿贵展平生志,为国输忠合天地。甲穿虽则失黄金,剑缺犹能生紫气。塞草萋萋兵士苦,胡虏如今勿胡虏。封侯十万始无心,玉关生入君看取。

敬请光临 学海Delphi站
  http://delphi.studysea.net
学海无涯,让我们共同成长!
作者:
男 sim888 ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/19 14:32:05
2楼: 再请问easykey兄:
  我如何用t对这十个的TEdit属性Text进行批量修改?要写十次吗?
                            谢谢!


----------------------------------------------
-
作者:
男 easykey (悠游) ★☆☆☆☆ -
盒子活跃会员
2004/3/19 14:35:01
3楼: 要看具体情况,循环一定是要用了
----------------------------------------------
按此在新窗口浏览图片
男儿贵展平生志,为国输忠合天地。甲穿虽则失黄金,剑缺犹能生紫气。塞草萋萋兵士苦,胡虏如今勿胡虏。封侯十万始无心,玉关生入君看取。

敬请光临 学海Delphi站
  http://delphi.studysea.net
学海无涯,让我们共同成长!
作者:
男 sim888 ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/19 14:42:07
4楼: 首先谢谢您(easykey)的热情回答,现在就是这个循环如何写?能给个例子吗?再次谢谢。
----------------------------------------------
-
作者:
男 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
学海无涯,让我们共同成长!
作者:
男 sim888 ( ) ★☆☆☆☆ -
盒子活跃会员
2004/3/20 8:49:47
6楼: 谢谢easykey兄!
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行85.9375毫秒 RSS