怎么把select 选出来的语句一条一条给一个变量?

Question

怎么把select 选出来的语句一条一条给一个变量?

Answer 1

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

Answer 2

var 
  s1: string;
...
with query1 do
begin
  clear;
  sql.add('select a,b from test');
  open;
  first;
  while not eof do
  begin
    s1 := FieldByName('a').AsString;
    Next;
  end;
  close;
end;

Answer 3

var
    str_userid, str_name:String;query1.Close;
query1.SQL.Clear;
query1.SQL.Add('SELECT USERID,NAME FROM TAB_RSDA');
query1.Open;query1.First;
while not query1.Eof do
begin
  str_userid:=query1.FieldByName('USERID').AsString;
  str_name:=query1.FieldByName('NAME').AsString;
  query1.Next;
end;query1.Close;

Answer 4

ado连的
ADOQuery1没有FieldByName