循环访问控件的简单例子

for i:= 1 to 10 do

begin

     TEdit(self.FindComponent('edit' + IntToStr(i))).Text := IntToStr(i);

end;

比如有10个Edit控件，自动给10个控件赋值

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/166523/viewspace-767688/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-767688/