如何把SQL(select)查询结果传出给程序变量(50分)

//注意字段数据类型与定义的类型一致（也可以强行转换）

var s:string;
begin
with query1 do
begin
close;
sql.clear;
sql.add('select yourfieldname from table');
open;
s:=FieldByname('youfieldname').AsString;
end;
end;

如果要取得所有该字段的结果，用
with query1 do
begin
close;
sql.clear;
sql.add('select yourfieldname from table');
open;
first;
while not eof do
begin
.
{将字段值赋给一个数组变量}
.
next
end;
end;

迟到了.

Only you,顺便问一下,如果返回数据集,how to do??

接受答案了.