Delphi中的类/静态常量

在Delphi中,我希望能够创建一个与类关联的私有对象,并从该类的所有实例中访问它.在Java中,我使用:

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

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

(你可能已经猜到了......我知道我的Java,但我对Delphi很新...)

无论如何,我不希望每次创建MyObject实例时都实例化一个新的MySharedObject,但我确实希望可以从MyObject的每个实例访问一个MySharedObject.(它实际上是日志记录,这促使我试图解决这个问题 - 我正在使用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.