delphi Components[i]清除所有edit控件中的内容

(*

一般的清空combobox方法

combobox1.clear;

...

combobox9.clear;

*)

 

procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

begin

  for i:=0 to self.ComponentCount-1 do

begin

    if self.Components[i] is TCombobox then

                      TCombobox(self.Components[i]).clear;

  end;

end;

 

 

//Components[i]清除所有edit控件中的内容 

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do 
begin
     if Form1.Components[i] is TEdit then //如果是Edit控件
      TEdit(Form1.Components[i]).Text := '' //清除其中的内容
   end;
end;

来自为知笔记(Wiz)