Dry-Problem

[Sir Rufo]

Das ist erst mal ein Fall für das Flyweight-Pattern. Damit holst du dir die benötigen Instanzen.

Da du auch noch eine Beschreibung benötigst, wird das Attribut einfach nochmal gekapselt:

Delphi-Quellcode:

type
  TLabeledFlyweight<TIndex,T:class> = class
  private
    FLabel : string;
    FIndex: TIndex;
    FFlyWeight: TFlyWeight<TIndex,T>;
    private GetObject : T;
  public
    public constructor Create( const ALabel: string; AIndex: TIndex; AFlyWeight: TFlyWeight<TIndex,T> );
    property Label: string read FLabel;
    property &Object: string read GetObject;
  end;

function TLabeldFlyweight<TIndex,T>.GetObject : T;
begin
  Result := FFlyweight[FIndex];
end;