读书人

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

发布时间: 2012-03-19 22:03:05 作者: rapoo

关于循环编辑控件的问题
我建立了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; 

读书人网 >.NET

热点推荐