问些PASCAL的问题，几简单的啦(50分)

D

delphilove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #1

怎样把一个窗口里面所有的TEdit控件clear
写出详细代码才有份啊

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #2

procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ControlCount -1 do
if Controls.ClassName='TEdit' then
TEdit(Controls).text:='';

end;

 

胡

胡柚

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #3

for i:=0 to Form1.ComponentCount-1 do
if Form1.Components.ClassName='TEdit' then
(Form1.Components as TEdit).Clear;

 

D

delphilove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #4

多人接受答案了。