delphi – 如何实现独立克隆的TADODataSet？

场景是这样的：

我们有一些sql表.我们正在对此表执行SQL查询,并且我们在TADOQuery对象中有结果.

var
  qryOryginal,qryClone: TADOQuery;

begin
  //setup all the things here
  qryOryginal.Active := True;
  qryClone.Clone(qryOryginal,ltBatchOptimistic);
  qryOryginal.Delete; //delete in qryOryginal casues that qryClone deletes its record too!
end;

因此,在克隆DataSet之后,我的qryClone应该保存并且独立数据(至少我是这么认为的).但是,在qryOryginal上执行Delete会导致qryClone上的操作相同.我不希望这样.

有任何想法吗？

我知道我可以将数据存储在TClientDataSet中的其他位置,但我想首先尝试上述解决方案.

在此先感谢您的时间.

解决方法

克隆只是将光标克隆在数据集上,而不是复制数据集中保存的数据.

如果需要两个独立的数据,则必须将原始数据集中的数据复制到第二个数据集.

如果要在不更改数据集上的当前光标的情况下读取或修改单个数据集,则可以使用克隆方法.