Delphi中的类/静态常量

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

导读：在Delphi中,我想要创建一个与一个类相关联的私有对象,并从该类的所有实例中访问它.在Java中,我会使用： public class MyObject { private static final MySharedObject mySharedObjectInstance = new MySharedObject();} 或者,如果MySharedObject需要更复杂

在Delphi中,我想要创建一个与一个类相关联的私有对象,并从该类的所有实例中访问它.在Java中,我会使用：

public class MyObject {
    private static final MySharedObject mySharedObjectInstance = new MySharedObject();
}

或者,如果MySharedObject需要更复杂的初始化,在Java中,我可以在静态初始化程序块中实例化和初始化它.

(你可能已经猜到…我知道我的Java,但我对Delphi相当新)

无论如何,每次创建MyObject的实例时,我都不想实例化一个新的MySharedObject,但是我希望MySharedObject可以从MyObject的每个实例访问. (这实际上是记录,这促使我试图弄清楚这一点 – 我使用的是Log4D,我想为每个具有日志记录功能的类存储一个TLogLogger作为一个类变量.)

在Delphi中做最好的做法是什么？

解决方法

这是我如何使用类变量,类过程和初始化块来做的：

unit MyObject;

interface

type

TMyObject = class
   private
     class var FLogger : TLogLogger;
   public
     class procedure SetLogger(value:TLogLogger);
     class procedure FreeLogger;
   end;

implementation

class procedure TMyObject.SetLogger(value:TLogLogger);
begin
  // sanity checks here
  FLogger := Value;
end;

class procedure TMyObject.FreeLogger;
begin
  if assigned(FLogger) then 
    FLogger.Free;
end;

initialization
  TMyObject.SetLogger(TLogLogger.Create);
finalization
  TMyObject.FreeLogger;
end.

（编辑：李大同）

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