遍历控件

Question

..............
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)
??????

Answer 1

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