遍历控件

[coreblood]

..............
add := true;
for i:= 0 to Panel1.ControlCount-1 do
begin
if controls[i] is TDBEdit then
begin
if (controls[i] as TDBEdit).Text = '' then
begin
showmessage('请输入完整数据');
add := false;
break;
end;
end;
end;
....................


在进行添加前我想对所有的输入筐进行判断如果为空则提示输入数据不进行添加

我的代码如上错误提示
list indext out of bounds(3)
??????

[lxpbuaa]

controls[i] 改为Panel1.controls[i]

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[lw549]

Panel1.ComponentCount-1试试。

[coreblood]

==

[coreblood]

ok