有没有办法一次性的给所有同种控件赋值呢?(10分)

R

redwood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #1

例如我想把所有的edit填入1或其他的东西
现在只有edit1.text:='1';edit2.text:='1';edit2.text:='1';edit2.text:='1';……
这样做下去，又没有快捷一点的办法呢？

 

S

szf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #2

for i:=0 to ComponentCount-1 do
if Components is TEdit then
(Components as TEdit).Text := '1'

 

W

wiseinfo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #3

关注！！

 

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #4

szf说得对

 

独

独酷求败

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #5

agree sfz
also can:
TEdit(Components).Text := '1'

 

R

redwood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #6

接受答案了.