5,386
社区成员
发帖
与我相关
我的任务
分享如何用循环访问Form上的所有Edit
在FORM上有N个EDIT， edit1,edit2...editN
我想用循环访问每个EDIT，怎么处理才好。
我想用循环访问每个EDIT，怎么处理才好。
...全文
请发表友善的回复…
发表回复
zcw 2000-05-03
- 打赏
- 举报
patpat说的对
wlq 2000-05-02
- 打赏
- 举报
把edit放在数组里,想怎么访问怎么访问
patpat 2000-05-01
- 打赏
- 举报
with form1 do begin
for i:=0 to ComponentCount-1 do
if Components[i].classtype=TEdit then
//do your work
;
end;//with
for i:=0 to ComponentCount-1 do
if Components[i].classtype=TEdit then
//do your work
;
end;//with
delphi_fan 2000-04-30
- 打赏
- 举报
with form do
begin
for i:= 0 to ControlCount - 1 do
if Controls[i] is TEdit then
begin
//add your owner code here
end;
end;
begin
for i:= 0 to ControlCount - 1 do
if Controls[i] is TEdit then
begin
//add your owner code here
end;
end;
halfdream 2000-04-29
- 打赏
- 举报
有个与你的问题非常类似的问题已经有很好的回答。那问题标题是’救命啊， 我完了 ‘
其中的答案只要把TLABEL改成TEDIT 就一切OK。
另外因为TEDIT 是个CONTROL， 所以也可以使用FORM的CONTROLS属性。
其中的答案只要把TLABEL改成TEDIT 就一切OK。
另外因为TEDIT 是个CONTROL， 所以也可以使用FORM的CONTROLS属性。
