新手求教：如何点取消按钮时清除所有输入框的Text？(50分)

W

wzqin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #1

各位富翁帮帮忙，我是刚学的，如何点取消按钮时清除所有输入框的Text？
不用一个个清除的办法，有没有简单点的方法？谢谢！

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #2

var i:Integer;
for i := 0 to ComponentCount - 1 do
if ComponentCount is TEdit then
TEdit(ComponentCount).Text := '';

 

C

cjsam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #3

设全是TEDIT控件的话这样可以
for i:=0 to Componentcount-1 do
if Components is TEdit then
TEdit(Components.Text:='';

其他的也可以，改改了。

 

W

wzqin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #4

谢谢两位的热心帮助，每人送上25分：）