急，望各位帮帮忙，关于多个文本框判断问题

Question

窗体中有四个文本框（a,b,c,d），一个确定按钮，如果当a文本框为空时，点击按钮，提示a文本框不能为空，如果b文本框为空时点击按钮提示为b文本框不能为空，如此例推c,d。当a,b,c,d都为空时，点击按钮，会逐个提示，a 不能为空，b 不能为空 c不能为空,d不能为空

Answer 1

  for i := 0 to ControlCount - 1 do
    if (Controls[i] is TEdit) and (TEdit(Controls[i]).Text = '') then
      ShowMessage(TEdit(Controls[i]).Name + '不能为空');如果窗体上还有其他文本框，你就用Tag区别开来
如果需要别的提示文字，那就试试用TList存文本框，TStrings存文本框的名字

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.Text+edit2.Text+edit3.Text+edit4.Text)='' then
    showmessage('edit1、edit2、edit3、edit4不能为空！')
  else
   begin
    if edit1.Text='' then
       showmessage('edit1不能为空！')
       else
         if edit2.Text='' then
          showmessage('edit2不能为空！')
          else
           if edit3.Text='' then
            showmessage('edit3不能为空！')
            else
             if edit4.Text='' then
             showmessage('edit4不能为空！')
   end;
end;