能循环读取表中的记录吗？

Question

读取表中的一条记录，执行一段代码，再读取表中的一条记录，继续执行一段代码。

Answer 1

var
  I :Integer;
  AStr :string;
with adoquery1 do 
begin 
  close;
  sql.clear;
  sql.add('select * from biao');
  open;
  first;
  for I :=0 to Recordcount - 1 do 
  begin 
    astr :=FieldByName('表字段').asstring;
    next;
  end;
end;

Answer 2

while not adoquery1.eof do
...
...
adoquery1.next;
end;

Answer 3

while not adoquery1.eof do 
... 
... //循环执行的代码加这里？
adoquery1.next; 
end;