关于EDIT控件内容清空(100分)

nbyyslf · 2002-12-02

当窗体显示的时候，把空体里面的EDIT内的内容全部清空，或控一下窗体里面的某个
BUTTON键，有没有简单的方法！而不是什么！EDIT1.CLEAR;EDIT2.CLEAR;EDIT3.CLEAR;
有没有办法把他用一两句话解决掉！

在线等！！！！！

ZRWeng · 2002-12-02

var
i:integer;
begin
for i:=0 to Components.Count-1 do
if components is TEdit then
TEdit(Components).clear;
end;

宇际之星 · 2002-12-02

我不知道有什么更好的方法了。除了edit1.text:='';
你可以在form1.onshow中设置一下所有的edit都设置为空。然后再需要的时候调用方法如下
form1.onshow(nil);
另外，你也可以自己编过程.在需要的时候调用就可以了。

扳手 · 2002-12-02

支持 ZRWeng 的方法，遍历控件，一次性清空form中所有edit中的内容，如果是清空
某些，修改一下就ok了。

kk2000 · 2002-12-02

var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
begin
if Controls is TEdit then
TEdit(Controls).Text := '';
end

一箭穿心 · 2002-12-02

好像没什么更简单！你做的窗体有很多edit吗？

nbyyslf · 2002-12-02

谢谢你们，我搞定了，就是ZRWeng的例子，但是要改动过的，就改动成像KK2000
哪样的写法就OK了！
谢谢你，ZRWeng