delphi - 判断ClientDataSet有变化的快速方法

Question

使用德尔福柏林。

我在数据模块(“dmCore”)中有一个嵌套的 Clientdataset。

对于任何给定的主项目，明细表中大约有 5000 条记录(使用 2 个主记录进行测试)。

我有一个“发布”按钮连接到 ActionManager 中的一个操作。

它的 OnUpdate 很简单:

actPost.Enabled:=dmCore.HasChanges;// checks master for changes

“HasChanges”很简单:

function TdmCore.HasChanges: boolean;
begin
  result := False;
  if cdsPSet.Active then
     result:=(cdsPSet.ChangeCount>0);
end;

不幸的是，在操作的 onUpdate 中运行 CDS.ChangeCount 会占用大量 CPU 时间 (>50%)。

我没有注意到这种情况发生在非嵌套 CDS 上...

是否有更简单(更快)的机制可以用来查看 CDS 是否已更改？我不需要计数，只需知道某处发生了变化。

TIA教育局

Answer 1

尝试UpdatesPending属性(property)。我不能说它会更快，但这是检测数据集中是否有任何变化的方法。因此，在您的情况下，您实际上可以只写:

function TdmCore.HasChanges: boolean;
begin
  Result := cdsPSet.UpdatesPending;
end;