delphi 把窗体上的所有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;
 

相关阅读 >>

Delphi 内存池

Delphi string.split 按照任意字符串分割语句

Delphi中动态加载treeview信息

Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串

Delphi getdesktopdir 获取桌面路径

Delphi 搜索字符串

Delphi三层开发小技巧:tclientdataset的delta妙用

Delphi获取系统当前进程名和进程id

Delphi中如何将鼠标放置在控件上就给予提示信息

Delphi concat 连接两个或多个字符串为一个字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 把窗体上的所有EDIT清空怎么做