动态改变edit的颜色？

Question

嘻嘻
procedure TForm1.Button1Click(Sender: TObject);var
  i: Integer;
begin
  for i := 1 to 20 dobegin
    with TEdit(FindComponent(Edit+ IntToStr(i))) do
    begin
      Color := ClRed;
    end;
end;

Answer 1

var
  i: Integer;
begin
  for i := 1 to N do //N为Edit的个数
  begin
    if Assigned(FindComponent('Edit'+IntToStr(i))) then
      TEdit(FindComponent('Edit'+IntToStr(i))).Color := clRed;
  end;
end;

Answer 2

i ：是你的Edit的数目，嘻嘻；

Answer 3

i ：是你的Edit的数目，嘻嘻；

Answer 4

var i: integer;
begin
  For  i:=0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[i] is Tedit  then
    begin
       if Form1.Components[i].Name= 'Edit1'  then
          Edit1.Color:= ClRed;
       if Form1.Components[i].Name= 'Edit2'  then
          Edit1.Color:= ClGreen;
    end;
   end;