组件遍历，怎么遍历！急！！！！

Question

组件遍历，怎么遍历！急！！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
   for i:=0 to form1.ComponentCount-1 do
   begin
     form1.Components[i].....
   end;
end;

Answer 2

var
  i:word;for i:=0 to componentcount-1 do
          begin
             if components[i] is TDbedit then
                 TDBedit(components[i]).ReadOnly:=false;
          end;