对一类控件进行操作，如：对10个EDIT控件进行赋值操作。

Question

对一类控件进行操作，如：对10个EDIT控件进行赋值操作。
    while (not eof(f)) do
    begin
        readLn(f,st);
        //在这里对10个EDIT控件进行赋值操作。
    end;

Answer 1

Edit1.Text := 'Edit1';
Edit2.Text := 'Edit2';
Edit3.Text := 'Edit3';
Edit4.Text := 'Edit4';
Edit5.Text := 'Edit5';
Edit6.Text := 'Edit6';
Edit7.Text := 'Edit7';
Edit8.Text := 'Edit8';
Edit9.Text := 'Edit9';
Edit10.Text := 'Edit10';

Answer 2

先把这10个EDIT放在同一容器里
假设为Form1var
  i: Integer;
begin
   for i:= 0 to form1.ComponentCount-1 do
     if form1.Components[i] is TEdit then
         form1.Components[i].text:= 'xxxx';
         ...
         ...
end;

Answer 3

呵呵procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i:=0 to Self.ComponentCount-1 do
  begin
    if(Self.Components[i].ClassNameIs('TEdit'))then
    begin
      (TEdit(Self.Components[i])).Text := 'Edit' + IntToStr(i);
    end;
  end;
end;