在线提问！ ( 积分: 30 )

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-09

• #1

for i := 0 to Componentcount - 1 do
begin
if Sender is Tedit then
begin
(Sender as Tedit).Clear;
end;
end;
我想用上面的内容来清空EDIT的内容，如果直接在窗体上的EDIT可以被清除，但如果EDIT在PAGECONTROL上则不能清除，怎么才能清除阿？

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-09

• #2

for i := 0 to Componentcount - 1 do
begin
if Sender is Tedit then
begin
(Sender as Tedit).Clear;
end;
end;
我想用上面的内容来清空EDIT的内容，如果直接在窗体上的EDIT可以被清除，但如果EDIT在PAGECONTROL上则不能清除，怎么才能清除阿？

 

饭

饭前饭后

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-09

• #3

会吗,不会吧,试试下面的:
for i := 0 to self.Componentcount - 1 do
begin
if self.Component is Tedit then
begin
Tedit(self.Component).text:='';
end;
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-09

• #4

按照您的代码，在什么地方的edit都不会被清楚的 ^_^

这样就可以了：

for i := 0 to Componentcount - 1 do
begin
if Components is Tedit then
begin
(Components as Tedit).Clear;
end;
end;

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-09

• #5

多人接受答案了。