关于循环编辑控件的问题
我建立了20个Edit控件,名称默认从Edit1--Edit20,然后想通过For循环改变其Text中的内容,比如全部改为0,请问For循环中怎么表达?
for i:=1 to 20 do
begin
????????
end
[解决办法]
form1.findcomponent('edit'+inttostr(i))
[解决办法]
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;