如何将dbgrid中的所有信息拷贝到剪贴板中？？

Question

如题？？

Answer 1

dbgrid1.datasource.dataset.Active:=True;
dbgrid1.datasource.dataset.Last;
dbgrid1.datasource.dataset.first;
for i := 0 to dbgrid1.datasource.dataset.recordcount - 1 do
begin
  for j := 0 to dbgrid1.datasource.dataset.fieldcount -1 do 
  begin
    arr[i][j] := dbgrid1.datasource.dataset.fields[j].asstring;
  end;
  dbgrid1.datasource.dataset.next;
end;然后把数组还原到文本文件中。