如何清空一个form上所有edit,combobox.(30分)

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #1

以前看到过这个问题及回答,全文检索了一下没找到.
再告诉我一下,谢谢.
好像用一个循环,具体语法有点记不清了.

 

C

chenshaizi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #2

不明白是要删除控件还是要，清除它们的text
for i:=controlscount-1 do//
if (controls is tedit ) or (controls is tcombobox) then
controls.clear;

 

H

hryyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #3

for i := 0 to ComponentCount - 1 do
Components.Free;

 

雪

雪阳

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #4

var

i ; integer;
for i := 0 to form1.ControlCount-1 do
begin
if form1.Controls is tedit then (form1.Controls as tedit).text :=''
else if form1.Controls is tcombobox then (form1.Controls as tcombobox).text :=''
end;

 

D

DouZheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #5

for i := 0 to Form1.ComponentCount - 1 do
begin
if Form1.Components is TEdit then
begin
TEdit(Form1.Components).Text:='';
Continue;
end;
if Form1.Components is TComboBox then
begin
TComboBox(Form1.Components).Text:='';
end;
end;

 

X

xhlight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #6

for I:=0 to CompenentCount-1 do
begin
if (Compenents is TEdit) or (Compenents is TComboBox) then
Compenents.Free;
end;

 

Z

zmh25

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #7

for i := 0 to Form1.ComponentCount - 1 do
begin
if Form1.Components is TEdit then
begin
TEdit(Form1.Components).Text:='';
end;
if Form1.Components is TComboBox then
begin
TComboBox(Form1.Components).Text:='';
end;
end;

 

G

gselec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-30

• #8

for i:=0 to self.controls.count-1 do begin
if not controls is teditbox then continue;
(controls as teditbox).text:='';
end;

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #9

谢谢各位,代码试过了,大部分都可以.
可是我在form的oncreate,onactivate,onshow中插入这段代码,系统提示出错.
如果我在form上放一个Button,然后放在ButtonClick中就没有问题.
(Edit,combobox是cxTextEdit,cxComboBox,代码略有改变).
Form为MdiChild,动态显示:
form1:=tForm1.create(self);
form1.show;
请问为何会这样的呢?

 

S

shuiwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #10

这是因为Edit,Combobox, 还没有Visiblie,怎么能FREE，或是Clear呢，

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #11

没有问题呀?楼主是怎么做的?
我照你的用了MDI还是正常的

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #12

怪事,问题就出在下面这一句上:
[red]form1:=tForm1.create(self);[/red]
如果我让这个Form AutoCreate就不会出错,
到底是为什么?请指教.

 

无

无头骑士

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #13

哇，大家都写出来了。那我也就不说什么了。

 

L

liujh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #14

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

 

L

lfausten

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #15

to xhlight
你这种free方法是错的，不知道你试过没有；应该改为如下方法：
j:= 0;
for I:=0 to CompenentCount-1 do
begin
if (Compenents[j] is TEdit) or (Compenents[j] is TComboBox) then
Compenents[j].Free
else j:=j+1;
end;

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #16

谢谢了.
还是有点小问题.
可能是dev express控件的问题,再查查看.
结束.

 

E

eastweast

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-31

• #17

多人接受答案了。