Question

delphi 中如何把一个记录集赋值给一个变量

var
i:Integer;
d_i:string;
text_1: array of string;
q1,q2,q3:TQuery;
begin
with q1 do
begin
Close;
sql.Clear;
SQL.add('select distinct fpdm from interface ');

Open;
end;
d_i:=q1.fieldbyname('fpdm').asstring;
for i:=1 to 9 do
with q2 do
begin
Close;
sql.clear;
sql.add('select max(id) from interface where fpdm=00000'+inttostr(i));
Open;
end;
tax_id:=q2;//这里就是我要赋值的变量
end;

Answer 1

这里的d_i也没有什么用呀。

tax_id是什么变量呀，如果也是TQuery类型这样就可以的。

当然这里可定有错误的，q1,q2都是要实例化的。

Answer 2

如果你非得这样干的话，你就先定义一个记录类型变量。把一个数据集赋值给这个变量。

Answer 3

把这个函数的返回值为:TQuery不就可以解决了。