如何判断所有的文本框不能为空,空就直接到焦点指向它．

Question

如何判断所有的文本框不能为空,空就直接到焦点指向它．

Answer 1

var
i:integer;
begin
for i:= 0 to ComponentCount-1 do begin
if Trim(TEdit(Components[i]).Text)='' then
TEdit(Components[i]).SetFocus;//看看你的输入框有几个类，例如TCOMBOBOX之类的，如上写就可以了
end;
end;

Answer 2

if edit1.text=''then
begin
  application.messagebox('某某文体框为空','提示',mb_OK);
  edit1.setfocus;
  exit;
end;

Answer 3

同意  hsmserver(撒哈拉之雨的悲伤)

Answer 4

if Trim(TEdit(Components[i]).Text)='' then
   TEdit(Components[i]).SetFocus;
对上面这句改成下面这句更合适
if (Components[i] is TEdit) And (Trim(TEdit(Components[i]).Text)='')  then
   TEdit(Components[i]).SetFocus;

Answer 5

var
i:integer;
begin
  for i:= 0 to ComponentCount-1 do 
  begin
    if (Components[i] is TEdit) then //如果你需要的是Edit的话就加上此句，不是就去掉此句。
      if Trim(TEdit(Components[i]).Text)='' then
      begin
         TEdit(Components[i]).SetFocus;
         Break;
      end;
  end;//看看你的输入框有几个类，例如TCOMBOBOX之类的，如上写就可以了
end;
end;