1.纳闷中...2. if (edit1.text = '') and (edit2.text = '') and (edit3.text = '') then showmessage('都为空!');
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('都为空!');
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;
if (edit1.text = '') and (edit2.text = '') and (edit3.text = '') then
showmessage('都为空!');
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('都为空!');
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;