Package - Unit.Initialization - Reihenfolge

[littleDave]

Bevor ich krampfhaft versuchen würde, die Reihenfolge "vorherzusehen", würde ich den Zugriff auf die Instanz über eine Methode kapseln (ob die Syntax so in Delphi XE geht, weiß ich nicht - aber ich denke, es sollte klar sein)

Delphi-Quellcode:

unit UnitA;

type
  MyInstances = class
  private
    class var FInstance : MyInstances;
  protected
    class function GetInstance: MyInstance;
  public
    class property Instance : MyInstances read GetInstance;

    procedure RegisterInstance(AInstance: TObject);
  end;

class function MyInstances.GetInstance: MyInstance;
begin
  // check if global instance variable is initialized
  if MyInstance.FInstance = nil then
     // not initialized, so create
     MyInstance.FInstance := MyInstance.Create;
  result := MyInstance.FInstance;
end;

procedure MyInstances.RegisterInstance(AInstance: TObject);
begin
  // do sth. with AInstance
end;

initialization
  // nothing needed here

finalization
  // clean up
  MyInstances.FInstance.Free;

Delphi-Quellcode:

unit UnitB;

uses 
  UnitA;

procedure Test;
begin
  MyInstances.Instance.RegisterInstance(TObject.Create);
end;