Abgeleitete Klasse eines Singleton Objekts

[Uwe Raabe]

Hatte ich noch vergessen zu erwähnen: Die Namensgebung ist etwas verwirrend.

Delphi-Quellcode:

type
  TColKaoPfand = class( TsngColumnDescription)
  protected
    function GetSngColumnsOwner: TkaoPfandColumnDescription; reintroduce;
  public
    class function this: TColKaoPfand; reintroduce;
    property CD: TkaoPfandColumnDescription read GetSngColumnsOwner;
  end;

Die Begriffe Description und Owner werden hier ziemlich durcheinander gewürfelt.