急！！一个查询功能的实现

Question

现在我的查询语句是
select * data where a=1;
关于TADOQuery控件
ADOQuery.recordcount  的记录为符合where条件的记录
但是我如何才能在这句查询语言的查询下找出data里面所有的记录号！！！

Answer 1

var
strsql:string;
strsql:='select * data where ...';
with ADOQuery1 do
begin
close;
sql.clear;
sql.add(str);
open;
end;

Answer 2

记录号存在数据库里吗？如果有取出来．要是没有自己加一个
var i :integer
with ADOQuery1 do
begin
close;
sql.clear;
sql := 'select * data where ...';
open;
first;
 for i= 0 to recordcount then
 begin
  ComboBox1.item.add(IntToStr(i));
 end; end;