DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: deliping
今日帖子: 2
在线用户: 4
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 jsnjsmc (鱼) ★☆☆☆☆ -
盒子活跃会员
2004/2/18 12:00:02
标题:
请教个问题, 浏览:1087
加入我的收藏
楼主:
如一个窗体上有好多Edit框,当然还有其它有组件,这时我想把所有的Edit框的内容都赋给一个动态的数组;其数组的长度也就是EDIT的个数,怎么给???

谢谢!!

----------------------------------------------
-
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2004/2/18 12:39:23
1楼:   for i := 0 to Form1.ComponentCount - 1
  begin
    if Form1.Components[i].ClassNameIs('TEdit') then
    begin
      //在这里加入你赋值的代码,取Edit的属性用TEdit(Form1.Componentsp[i]).Text即可
    end;
  end;

----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 jsnjsmc (鱼) ★☆☆☆☆ -
盒子活跃会员
2004/2/18 14:06:14
2楼: 谢谢,iamdream

你能说一下怎么给一个数组赋值呀。

比如这样:
有10个EDIT,我想把它赋给A1:ARRAY[0..9] OF AINGLE 的数组,主要FORM上还有其它的组件,怎么用一个循环就能过滤出EDIT,并给A1赋值?????

----------------------------------------------
-
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2004/2/18 14:22:56
3楼: 和上面一样 颠倒一下!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行85.9375毫秒 RSS