Delphi：如何判断groupbox中所有的edit是否为空？

Question

我在groupbox中放置了多个label，多个edit。想保存edit中的内容到数据库时检查是否全部edit都已经填写完整。
如果不完整，不允许保存，并提示为空的edit。
一个edit一条判断语句，我会写。但是edit太多了，想求条便捷点的语句

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
  var
      I:   Integer;
  begin
      for   I   :=   0   to   ControlCount-1   do
         if   TEdit(Controls[I]).Text = ''   then
          showmessage('有空值');
  end;请看看是否您需要的！

Answer 2

procedure TForm1.btn1Click(Sender: TObject);
Var
  I:Integer;
begin
  for I := 0 to grp1.ControlCount - 1 do    // Iterate
  begin
    if grp1.Controls[1] is TEdit then
    begin
        if (grp1.Controls[i] as TEdit).Text = '' then
        begin
            showmessage('值为空');
        end;
    end;
  end;    // for
end;

Answer 3

xiaoxinpaigu 小新排骨和lqwxfdwj 小楼的方法都可以。我将把分给他们。
如果能提示第几个edit为空就更好了。

Answer 4

给点提示，代码只写一点
定义
var 
 msg:string;
 ctrl:TWinControl;
 i:integer;
begin
  for i:=0 to editcount-1 do
 begin
  if (第i个edit.text='') then
  begin
  msg:='自己写信息吧，也可以定义一些常用消息传过来';
  ctrl := 第i个edit;
  break;
  end; if (msg<>'') then
 begin
  showmessage(msg);
  ctrl.setfocus();
  exit;
 end;
 end; end;