我的窗体上有70个Edit控件，怎样判断它们的Text属性都不为空？难道要and +and 的一个一个加下去？

[yundou]

我的窗体上有70个Edit控件，怎样判断它们的Text属性都不为空？难道要and +and 的一个一个加下去？

[飛無痕]

var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
if TEdit(Components[I]).Text <> '' then
begin
ShowMessage(Components[I].Name + ' is not null.');
Abort;
end;
end;

[tanqth]

就是楼上的办法

[myfine]

用一个循环

[noil0125]

var
I,count: Integer;
begin
count:=0;
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
if TEdit(Components[I]).Text <> '' then
inc(count);
if count=70 then
//70个Edit控件，它们的Text属性都不为空要经常的操作
end;

[huaervvhuaer]

function Tform1.isnotnull():boolean;
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[I] is TEdit then
if TEdit(Components[I]).Text = '' then
begin
result:=false;
exit;
end;
result:=true;
end;

[47522341]

来晚了；^_^

[hanly2008]

我更晚了~~~

[tncboy]

收了！！

[gdwyh]

同意一楼

[mestars]

这个窗口够大 *_*

[wlmmlw]

有必要搞这么多个EDIT吗？