非常简单的问题，如何在delphi中把sql执行的结果返回给变量？

Question

我想把sql搜索结果做为变量使用，做了如下尝试，失败。已经建立好了ADOQuery1，连接测试成功procedure TForm1.Button1Click(Sender: TObject);
var
result:Integer;
begin
  ADOQuery1.Open;
   result := ADOQuery1.fieldbyname('select count(*) from T1 where range is not null').Value;
   messagedlg('深度信息导入完毕！+result',mtinFormation,[mbok],0);
end;报错说'Missing SQL property'
求助如何解决？

Answer 1

改一下：procedure TForm1.Button1Click(Sender: TObject);
var
result:Integer;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'select count(*) as tempCount from T1 where range is not null';
  ADOQuery1.Open;
  result := ADOQuery1.fieldbyname('tempCount').Value;
  messagedlg('深度信息导入完毕！+result',mtinFormation,[mbok],0);
end;

Answer 2

哦，没注意你后面也没有处理Result，用一下IntToStr(Result)