每个类的Delphi类变量

前端之家收集整理的这篇文章主要介绍了每个类的Delphi类变量前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我已经将类变量添加到深层次结构的基类中.它是一个整数,用于计算每个类类型创建的实例数.但我遇到了一个问题.

举个例子:

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.

猜你在找的Delphi相关文章