每个类的Delphi类变量

发布时间：2020-12-15 04:01:10 所属栏目：大数据来源：网络整理

导读：我已经将类变量添加到深层次结构的基类中.它是一个整数,用于计算每个类类型创建的实例数.但我遇到了一个问题. 举个例子： TBaseClass = class private class var fCreated: integer; public class function NewInstance: TObject; override; end; TDescendan

我已经将类变量添加到深层次结构的基类中.它是一个整数,用于计算每个类类型创建的实例数.但我遇到了一个问题.

举个例子：

TBaseClass = class
  private
    class var fCreated: integer;
  public
    class function NewInstance: TObject; override;  
  end;

  TDescendant = class(TBaseClass)
  end;

  ...

  class function TBaseClass.NewInstance: TObject;
  begin
    result := inherited NewInstance;
    inc(fCreated);
  end;

我假设我可以使用类var来存储每个类创建的实例数,但似乎并非如此.

检查TBaseClass.fCreated返回与TDescendant.fCreated相同的值,通过检查器更改一个更改另一个,因此它的行为就好像fCreated是一个全局变量.

我期望fCreated按类别维持,是不是这一点？我错过了什么？

解决方法

你没有遗漏任何东西.您对类变量如何工作的分析是正确的.类var只不过是一个由类限定的全局变量.

一个简单的解决方案是使用字典来计算实例.一个更黑客的方法是使用Hallvard Vassbotn博客中的一个技巧,其中(ab)使用VMT来存储特定于类的字段.你可以阅读所有关于它here.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!