Delphi 和共享数据源

Question

在我的应用程序中，我有不同的表单，它们使用相同的数据源(因此查询也相同)，在一个公共(public)数据模块中定义。问题是，有没有办法知道我打开特定查询的次数？通过能够做到这一点，我可以避免在不关闭“其他任何地方”的情况下关闭该查询。

编辑:重要的是要提到我使用的是 Delphi3，它不是单个查询而是多个查询。

Answer 1

想法是使用 TDataSource 的 DataLinks 属性。
但是，由于它受到保护，您必须获得访问权限。一个常见的技巧是创建一个仅用于转换目的的假后代:

type
  TDataSourceHack = class(TDataSource);

然后你可以像这样使用它:

  IsUsed := TDataSourceHack(DataSource1).DataLinks.Count > 0;