请问高手，如何一下子把FORM上所有的EDIT的值清空 ( 积分: 50 )

K

kjhwxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-07

• #1

请问高手，如何一下子把FORM上所有的EDIT的值清空 ，我想在程序执行时，用命令清空

有没简便的啊！我的这个FORM上有40多个EDIT啊

 

胡

胡鸣

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-07

• #2

var
i:integer;
begin
for i:=0 to ComponentCount-1 do
begin
if(Components is TEdit)
then (Components as TEdit).text:='';
end;
end;

 

菜

菜鸟黄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-07

• #3

帮你顶一下

 

K

kjhwxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-05-07

• #4

谢谢胡鸣大哥