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 xe5 android 调用手机震动

什么是Delphi firemonkey

Delphi读写firebird二进制数据

Delphi xe5调用外部扫描程序――谷歌 zxing

Delphi 获取系统启动文件夹路径

Delphi中输入框不能输入初数字意外的字符串的函数（isnumeric）

Delphi 内存管理[2]

Delphi trim 删除字符串左右两边的空格

Delphi应用synedit完美实现sql语法高亮

如何为Delphi程序添加事件和事件处理器

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

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