这个try不是这么用的吗?

Question

DATASOURCE1.DataSet:=ADOQUERY1;
      tempstr:='select * from 信息表 where strcomp(单号,:A_czr,0)=0 ';
      adoquery1.sql.Clear;
      adoquery1.SQL.Add(tempstr);
      adoquery1.Parameters.ParamByName('A_czr').Value:=edit24.Text;
          try
      adoquery1.Open;
      edit23.text:=adoquery1.fieldbyname('卡号').asstring;
      DateTimePicker3.date:=adoquery1.fieldbyname('日期').value;
     if adoquery1.fieldbyname('是否有效').value =1
      then  checkbox1.Checked:=false
      else checkbox1.Checked:=True;      //showmessage('查询记录成功');
    except
       Exit;     showmessage('查询记录不存在');以上说我的蹩脚语句。我想实现根据EDIT框中输入的内容，来入库进行查询。如果输入内容查询不到信息，则弹出“记录不存在”。难道不是用TRY吗？还是我的方法不对？照我这么写，编译没错误，运行时候，如果输入的内容查询不到，就蹦错误。也不是提示查不到的信息。

Answer 1

查没查到内容用adoquery1.recordcount是否＝0来判断。
和try没关系，try块里出现错误才会except呢。

Answer 2

...
...
adoquery1.open;
if adoquery1.IsEmpty then
 begin
    showmessage('查询记录成功');
 end
else
begin
   ...
   ...
end