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;
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('都为空!');