在DILPHI中如何遍历窗体中所有的控件

Question

var i : integer;
begin
  for I := 0 to form1.ComponentCount - 1 do
    showmessage(form1.Components[i].Name)
end;

Answer 1

var
  n: integer;
begin
  for n := 0 to componentcount - 1 do
  begin
    //if components[n] is TwwDbedit then
//      (components[n] as TwwDbedit).Text := '';
end;

Answer 2

for i:=0 to ComponentCount-1 do
   begin
   if Components[i] is TButton then showmessage('IS TButton');
   end;

Answer 3

var
  n: integer;
begin
  for n := 0 to componentcount - 1 do
  begin
    //if components[n] is TwwDbedit then
//      (components[n] as TwwDbedit).Text := '';
end;