为什么只执行else ？

Question

if edtname.Text = '' then
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from a');
      adoquery1.Open;
    end
  else
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select * from b ');
   adoquery1.Open;edtname.text不空时也只执行else，为什么？

Answer 1

else
  begin//////!!!!!!!!
  ...
  end;////!!!!!!

Answer 2

写代码尽量要“合并同类项”.....  ^_^adoquery1.Close;
if edtname.Text = '' then
   adoquery1.SQL.Text := 'select * from a';
else
   adoquery1.SQL.Text := 'select * from b ';
adoquery1.Open;

Answer 3

from a';
       ~~~分号去掉