比如我用两层循环
   with adoquery1 do
    begin
      close;
      sql.Clear;
      sameunit:='select a,b,c from 表1'
      sql.Add(sameunit);
      open;
    end;
     while not adoquery1.Eof do
     begin
      addr:=trim(adoquery1.fieldbyname('a').AsString;     { 
       ..在上面的adoquery1结果集中查询,
          如示意:select  .. from ( 使用上一次adoquery1中的查询结果,避免在这里重复查询) 
       }  
  
      adoquery1.Next;
     end;