解决方案 »

  1.   

    1.纳闷中...2.
    if (edit1.text = '') and (edit2.text = '') and (edit3.text = '') then
       showmessage('都为空!');
      

  2.   

    1.跟一般的搜索算法一样啊。2.
    if (edit1.text = '') and (edit2.text = '') and (edit3.text = '') then
       showmessage('都为空!');
    --------------------------------------------------------------------
    if (length(edit1.text)>0) and (length(edit2.text)>0) and (length(edit3.text)>0) then
       showmessage('都为空!');
      

  3.   

    for i:=0 to form1.ComponentCount -1 do
    begin
      if (form1.Components[i] is TEdit) then
      begin
        if Length(TEdit(form1.Components[i]).text) > 0 then
          showmessage(form1.Components[i].Name + '不为空!');
      end;
    end;