Wie Singleton Objekt freigeben?

[Jazzman_Marburg]

Hallo Gemeinde.
Ich habe mir ein Singleton Objekt gebaut -- und es funktioniert prima: Es wird gleich zu Programmstart erzeugt und ich kann alle Methoden aufrufen - und vor allem: Ich kann keine zweite Instanz erstellen.
Jetzt möchte ich aber dieses Objekt auch irgendwann freigeben -- aber ich erreiche den Destructor nicht. Wenn ich es mit Singleton.Destroy versuche bekomme ich den Fehler:
Diese Form des Methodenaufrufs ist nur für Klassenmethoden erlaubt.
Wie werde ich nun mein Singleton wieder los?

Delphi-Quellcode:

type
  Singleton = class
  private
    class var

      _instance : Singleton;

      fTest1: integer;
      fTest2: integer;
      fTest3: integer;

      ...

  public

  //  constructor Create; entfällt, da INITIALIZE

    destructor Destroy; override;

    class function Instance : Singleton;
    class function NewInstance: TObject; override;
...

Achso, ich habe das Singleton nach dieser Methode gebaut.

Habt ihr eine Idee?

Vielen Dank
Gruß
Jazzman

[himitsu]

Singleton.Instance.Destroy; oder besser Singleton.Instance.Free;

Du willst ja die Instanz (das instantiierte Objekt) freigeben und nicht den Klassen-Typ.

Oder zu baust dir zusätzlich noch eine public

Delphi-Quellcode:

class procedure Singleton.FreeInstance;
begin
  FreeAndNil(_instance);
end;

[Jazzman_Marburg]

Zitat von himitsu:

Singleton.Instance.Destroy; oder besser Singleton.Instance.Free; ...

Yippieh yeah!

So einfach manchmal!

Lieben Dank & Gruß
Jazzman

[r2c2]

Hier mein gebetsmühliger Warnhinweis auf der Packungsbeilage zu Singletons: http://www.christian-rehn.de/2009/09/03/singletons/

Wenn ich Singletons verwende (und das ist eher selten), verwende ich eher eine testbare Variante.

mfg

Christian

[jaenicke]

Da du Delphi XE hast, geht das noch sehr viel besser:

Delphi-Quellcode:

type
  TSingleton = class
  private
    class var
      FInstance: TSingleton;

      FTest1: Integer;
      FTest2: Integer;
      FTest3: Integer;
    class function GetInstance: TSingleton; static;
  public
    class destructor Destroy;

    class property Instance: TSingleton;
  end;

[...]

class function GetInstance: TSingleton;
begin
  if not Assigned(FInstance) then
    FInstance := TSingleton.Create;
  Result := FInstance;
end;

class destructor Destroy;
begin
  if Assigned(FInstance) then
    FInstance.Free;
end;

So brauchst du dich weder um die Erzeugung noch um die Freigabe kümmern. Und das ist bei einem Singleton finde ich sehr wichtig. Alternativ bietet sich für den Zweck die Verwendung von Interfaces an.

[himitsu]

Genauso wie man hier das Erstellen der Instanz blockt, sollte man hier auch noch externe das Freigeben der Instanz verbieten.

[Furtbichler]

Zitat von r2c2:

Hier mein gebetsmühliger Warnhinweis auf der Packungsbeilage zu Singletons

Screen, Mouse, etc. sind also böse Singletons? Oder gar keine?

Ich denke, wenn ich mich über Unikate mit der Außenwelt unterhalten möchte, komme ich um Singletons nicht herum. Ob man sie als statische Klasse implementiert oder Singleton, ist doch gehupft wie gesprungen.

Aber unabhängig davon: Ein Singleton zu implementieren deutet schon auf schlechtes Design hin.