delphi中一个问题

Question

我现在有个问题，一个事件中的代码问题，sql语句，比如客户输入信息我按照信息查询，查的到就显示，查不到就showmessage（'没有找到数据'）
我大概是这么写的
with adoquery1 do
begin
close;
sql.clear;
sql.add('select ...from ...where 条件=...');
if adoquery1.RecordCount=0 then showmessage('没有找到数据')
else
with adoquery1 do
begin
close;
sql.clear;
sql.add('select ...from ...where 条件=...');
下面显示的代码就省略了，大家可以看到我2段sql语句，要运行2次，第一次判断是否sql中有相应的数据，第二次是有的话就在搜索显示出来，我感觉很烦啊，但是我又找不到别的办法解决这个如果没有相对的数据显示showmessage的问题，请问大家怎么办？有没有简单少点的代码能达到效果，谢谢了

Answer 1

with adoquery1 do
begin
  close;
  sql.clear;
  sql.add('select ...from ...where 条件=...');
  open;
  if RecordCount=0 then 
    showmessage('没有找到数据');
end;
打开一次就行了。。 有数据自然会显示，没数据则提示没数据。