菜鸟问题！怎样修改一批同样控件的属性，要简洁代码实现。

Question

我有一批edit1......edit55
我要把它们的enabled属性改为false，还要改颜色。一个一个的改太痛苦了。
各位大侠一定有好的招，快教教我。

Answer 1

var
  I: Integer;
  Temp: TComponent;
begin  
  for I := ComponentCount - 1 downto 0 do
  begin
    Temp := Components[I];
    if Temp is tedit then
    begin
      tedit(temp).enabled := true;
    end;
  end;
end;
   

Answer 2

procedure u_changestate(uform:Tform);
var li_i:longint;
begin
with uform do
begin
  for li_i:=0 to ComponentCount-1  do
  begin    if Components[li_i] is TPanel then
    with (Components[li_i] as Tpanel) do
    begin
    ctl3d := UF_CTL3D;
    Caption :='';
    if  not UF_CTL3D then
    begin
      (Components[li_i] as Tpanel).BevelOuter :=bvLowered;
     end;
    Continue;
    end;    if Components[li_i] is Tgroupbox then
        begin
        (Components[li_i] as Tgroupbox).ctl3d := UF_CTL3D;
        Continue;
        end;    if Components[li_i] is Ttoolbar then
       with (Components[li_i] as Ttoolbar) do
        begin
        Flat  :=not UF_CTL3D;
        Transparent := not UF_CTL3D;
        ShowCaptions  :=UF_ShowCaption;
        Continue;
        end;    if Components[li_i] is Tcoolbar then
        begin
        if  not UF_CTL3D then
        (Components[li_i] as Tcoolbar).Bitmap.LoadFromFile
        Continue;
        end;    if Components[li_i] is Tedit then
        begin
        (Components[li_i] as Tedit).text :='';
        Continue;
        end;  end;
end;
end;