如何遍历一个FORM上的所有TEDIT组件? 如题。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 for i:=0 to self.ComponentCount-1 do if self.Components[i].ClassType=TEdit then TEdit(self.Components[i]).Text:='ab'; for i:=0 to form1.ControlCount-1 do begin if (form1.Controls[i] is TEdit ) then (form1.Controls[i] as TEdit).Text:=' ';end; 关于sleep函数的问题! 超时过期? 请教:用Adoquery查询,并把查询结果分页显示在DbGrid!急用!在线等! socket编程 请问怎么控制 StringGrid 的某一行 或 一列为只读 新手询问。我想得到ttraeeview控件所选的选项的代码和名称及它的层次号,怎么得到呀? Byte类型? Delphi4的QuickReport在Win2000下报错“Cannot Create File!”!!!急、急、急 如果我想学好数据库编程应该买什么书?请推荐,谢谢。 现在感觉到Delphi对自己的阻碍了! 动态增加菜单,如何写它的事件 如何关于判断整型数是否为空?
if self.Components[i].ClassType=TEdit then
TEdit(self.Components[i]).Text:='ab';
if (form1.Controls[i] is TEdit ) then
(form1.Controls[i] as TEdit).Text:=' ';
end;