首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

关于循环编辑控件的有关问题

2012-03-19 
关于循环编辑控件的问题我建立了20个Edit控件,名称默认从Edit1--Edit20,然后想通过For循环改变其Text中的

关于循环编辑控件的问题
我建立了20个Edit控件,名称默认从Edit1--Edit20,然后想通过For循环改变其Text中的内容,比如全部改为0,请问For循环中怎么表达?
for i:=1 to 20 do
begin
  ????????
end

[解决办法]
form1.findcomponent('edit'+inttostr(i))
[解决办法]

Delphi(Pascal) code
var  i:Integer;  c:TComponent;begin  for i:= 1 to 20 do  begin    c := FindComponent('Edit'+IntToStr(i));    if c is TEdit then    begin      TEdit(c).Text := '0';    end;  end;end; 

热点排行