如何在一个函数中多次设置Filter？

Question

我现在有一个从文件中读取的ADOQuery对象
我在一个循环中想设置这个ADOQuery对象的Filter属性，从而每次循环筛选出不同的数据。
可是我后来发现只有第一次循环中的Filter起作用，以后的循环中的Filter属性不能对数据进行筛选。
我的代码大概如下：for i:=0 to n do
begin
 ...
 adoQuery.Filter := 'some condifion' + strlist(i);
 if adoQuery.RecordCount > 0 then
 begin
   first;
    ...
  end;end;我是否漏掉了某些必要的步骤？请大家指教！

Answer 1

{...}
adoQuery.Filter := 'some condifion' + strlist(i);
adoQuery.Filtered := true;