Question

Delphi中读取query中的每一条数据

比如说我用 select xx from xxx可以查出来好多条数据，怎么才可以读取到每一条的内容

Answer 1

Query.First; //第一条
Query.Next; //下一条
Query.Prior; //上一条
Query.Last; //最后一条

Answer 2

while not query.eof do
begin
s:=query.fieldbyname(字段名).asstring;
i:=query.fieldbyname(字段名).asinteger;
query.next;
end;

Answer 3

randomize;//在循环前先初始化随机种子； while true do begin //Doing end; 假如你的query组件叫query1，执行完你想要查询的语句后，也就是在query