Design Pattern: Singleton

Das Singleton-Pattern ist dann nützlich, wenn man genau eine Instanz einer Klasse benötigt. Durch den Zugriff in der beschrieben Weise wird sichergestellt, dass diese eine Instanz im Moment der ersten Benutzung erzeugt und danach immer dieselbe Instanz verwendet wird.

Hier ist das Prinzip am Beispiel des alten Visual-Basic-Dialektes gezeigt, den ja vielleicht noch jemand nutzt :-)

  1. Option Explicit
  2.  
  3. Private m_ObjectName As clsClassName
  4.  
  5. Public Property Get ObjectName() As clsClassName
  6.  
  7. If m_ObjectName Is Nothing Then Set m_ObjectName = New clsClassName
  8. Set ObjectName = m_ObjectName
  9.  
  10. End Property

Anstelle von ObjectName und ClassName sollte natürlich ein sprechender Name verwendet werden.

Die Verwendung erfolgt dann einfach über den Namen des Properties, also z.B.:

  1. ObjectName.AttribName = 42
  2. MsgBox "Anmeldename: " & ObjectName.Anmeldename

Denkbar wäre zum Beispiel eine Klasse, die bestimmte Daten vorhält oder auch ein zentraler Dispatcher, auf den andere Klassen eine Referenz halten können, um z.B. dessen Events zu fangen.

Ähnliche Artikel:

Schreibe einen Kommentar

Your email address will not be published.

2 + achtzehn =