delphi 把窗体上的所有EDIT清空怎么做
展开全部
将窗体上的所有 edit 组件清空，示例代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to self.ComponentCount-1 do
begin
if (self.Components[i] is Tedit) then
begin
Tedit(Components[i]).Clear;
end;
end;
end;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
