判断控件是否为空的问题(30分)

H

huzhuqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #1

一个窗体中有数个tedit和tcombobox，要判断这些控件的‘text’属性都不为空，判断之后在进行其他工作，怎么判断？？

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #2

var i:integer;
b:boolean;
begin
b:=true;
for i:=0 to ComponentCount-1 do
begin
if Components.ClassType=Tedit then
if (Components as Tedit).Text='' then b:=false;
if Components.ClassType=Tcombobox then
if (Components as Tcombobox).Text='' then b:=false;
if b then ..........//判断之后在进行其他工作
end;
end;

 

M

MYSBS

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #3

If Edit1.Text<>'' Then
Begin
......
End;

 

B

blyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #4

对不起，写错了
var i:integer;
b:boolean;
begin
b:=true;
for i:=0 to ComponentCount-1 do
begin
if Components.ClassType=Tedit then
if (Components as Tedit).Text='' then b:=false;
if Components.ClassType=Tcombobox then
if (Components as Tcombobox).Text='' then b:=false;
end;
if b then ..........//判断之后在进行其他工作
end;

 

C

caihua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #5

同意 blyb

 

H

huzhuqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #6

多人接受答案了。

 

H

huzhuqing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #7

哦。加错了