adoquery.first;
while not adoquery.eof do
begin
showmessage(adoquery.Fieldbyname('字段名').AsString);//通过不同列名列移动
adoquery.next;//行移动
end;
adoquery.first;
while not adoquery.eof do
begin
showmessage(adoquery.Fields[0].AsString);//通过不同索引列移动
adoquery.next;//行移动
end;