操作方法如下：
var
i,j:integer;
str: string;
Begin
str:='';
for i:=0 to DBgrid1.selectedrows.count-1 do
begin
Gotobookmark(pointer(DBgrid1.selectedrows.ites[i]));
for j:=0 to fieldcount-1 do
Begin
if j>0 then
str:=','+str;
str:=fields[i].Asstring;
End;
listbox1.items.add(str);
str:='';
End;
End;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024