怎样清除文本框中的内容(200分)

C

cjsh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-27

• #1

我的窗体上有[brown]20[/brown]个文本框，我现在想把文本框中的内容清掉，
但是我又不想在窗体加时一个一个文本框赋空值，有没有用
几条子语句把文本[gold]清空[/gold]。
我是一个菜鸟，希望GGJJ们能帮我这个，谢谢。

 

Z

zhilon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-27

• #2

var
i : integer;
begin
for i:=0 to componentCount -1 do
if (components is TEdit) then //比如是TEdit组件
TEdit(components).Text := '';
end;

 

Z

zhilon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-27

• #3

对了把这段代码放在你想要执行的事件中
如窗体的的 OnCreate 事件

 

P

p96114

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-27

• #4

完全正确。也可以：
TEdit(components).Clear;

 

C

cjsh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-27

• #5

多人接受答案了。