Question

Delphi用Query查询一个表，有多个结果，怎么引用第几个的行的记录

用Query查询一个表，有多个结果，怎么引用第几个的行的记录,比如我查出了很多姓张的人，我想从第一个开始一个一个引用，怎么办？

Answer 1

with Query1 do
begin
for i:=0 to Recordcount-1 do
begin
Name:=FieldByName('姓名').Asstring;
XX:=FieldByName('XX').Asstring;
……//省略部分字段
Next;
end;
end;

Answer 2

query1.first;
while not query1.eof do
begin
...
query1.next;
end;