遍历控件
..............
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)
??????