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

N

nbyyslf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #1

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

在线等！！！！！

 

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #2

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

 

宇

宇际之星

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #3

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

 

扳

扳手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #4

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

 

K

kk2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #5

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

 

一

一箭穿心

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #6

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

 

N

nbyyslf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #7

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