怎样给一批组件赋值？

Question

(sender as Tedit).text:='asfasfsaf';

Answer 1

定义一个控件树组,比如说你的窗体上有两个edit，则可以:
 procedure TForm1.Button1Click(Sender: TObject);
  var
    ss:array[0..10] of Tedit;
begin
    ss[0]:=edit1;
    ss[1]:=edit2;
    ss[0].text:='java';
end;

Answer 2

上午小新回答过，search把
的确用循环

Answer 3

for i ;= 0 to 10 do
begin
  Tedit(findcomponent('edit' + inttostr(i))).text := '1';
end;注意，控件的名字要有一定的规律才行

Answer 4

如果不是设计期加上的edit,则可以动态的创建,然后再定义控建树组,然后赋值!