利用adoquery怎么判断是否查询到符合条件的记录？

Question

function RecordExists(id:Integer):boolean;
begin
  with adoquery1 do
    begin
    Close;
    sql.text:=format('select Count(*) from test where id=%d',[id]); 
    Open;
    Result:=Fields[0].asInteger>0;
    Close;
    end;
end;

Answer 1

if ADOQuery1.RecordCount=0 then
ShowMessage('没有找到符合条件的记录');

Answer 2

if Not ADOQuery1.IsEmpty then 
   ShowMessage('No');

Answer 3

更正:
if  ADOQuery1.IsEmpty then 
ShowMessage('No');

Answer 4

if ADOQuery1.recordcount=0 then 
  showmessage('没有数据存在')
  else 
  showmessage(‘一共有'+inttostr(adoquery1.recordcount)+'条记录');