如何使用循环语句对界面上的按钮标题赋值(100分)

各位，如何使用For 循环语句对界面上的按钮标题赋值。<br>例如我的界面上有10个按钮，按钮标题需要动态命名，如何实现，请赐教。<br> &nbsp;button1,button2,button3……button10<br>For i:=1 to 10 do<br> &nbsp;button ? &nbsp;.caption:= '****' &nbsp; //按钮编号形如Buttoni<br>不知如何书写。

for i := 0 to 10 do<br> &nbsp; &nbsp;TBuuton(FindComponent('Buuton'+IntToStr(i))).Caption := '****';

var<br> &nbsp; TempC:TComponent;<br> &nbsp; I:integer ;<br><br>begin<br> &nbsp; For i :=1 to 10 do<br> &nbsp; begin<br> &nbsp; &nbsp; &nbsp; &nbsp; TempC:=self.FindComponent('控件名字');//例：Button1-Button10<br> &nbsp; &nbsp; &nbsp; &nbsp; if &nbsp;TempC&lt;&gt;nil &nbsp; then<br> &nbsp; &nbsp; &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;TButton(TempC).Caption :='内容';<br> &nbsp; &nbsp; &nbsp; &nbsp; end; &nbsp; &nbsp; <br> &nbsp; end;<br>end

还是先定义一个控件数组比较好.<br>下面是创建并给caption赋值的例子.<br><br>var bt:array [0..9] of TButton;<br><br>For i:=0 to 9 do<br> begin<br> &nbsp; bt:=TButton.Create(Self);<br> &nbsp; bt.Name:='No:'+inttostr(i);//也可以是任意字符串<br> &nbsp; bt.Caption:=inttostr(i);//也可以是任意字符串<br> &nbsp; bt.OnClick:=//自己定义的点击事件<br> &nbsp; bt.Visible:=true;<br> &nbsp; ......<br> end;

喜欢dey-999, chinaking的方法。简单实用。