Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: Problem mit Objektfreigabe

    Delphi
    by shmia, 30. Mär 2011
  Also es handelt sich hier um das Singleton Design Pattern.
  implementation
  var
  _Muster:TMuster; // nicht sichtbar ausserhalb der Unit
  
  class function TMuster.SingleInstance: TMuster;
  begin
  if not Assigned(_Muster) then
  _Muster := TMuster.Create;
  Result := _Muster;