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

最新推荐文章于 2023-11-23 15:02:22 发布

weixin_30555753

最新推荐文章于 2023-11-23 15:02:22 发布

阅读量379

点赞数 1

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/p/3876393.html

本文介绍了如何使用简单的循环结构批量清空Delphi中多个组合框（combobox）和编辑（edit）控件中的内容，提高了代码的复用性和效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(*

一般的清空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;

//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;