var
nam_list:string;
i:integer;
i:=0;
nam_list:='';
query.first;
while not query.eof do
begin
nam_list:=nam_list+query.fieldbyname('name').asstring;
inc(i);
if i=9 then
begin
nam_list:=nam_list+',';
i:=0;
end;
query.next;
end;
nam_list即是结果。
我只是用PASCAL 写了个大概的过程，你可以去细划一下。
内容全部来源于网络收集，如有侵权，请联系网站删除！