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;