在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.