首页 > 代码库 > delphi Components[i]清除所有edit控件中的内容

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)