Verwenden der spezifischen Klassen-Typ-Referenz in Delphi Attribut-Konstruktor

Question

Da Delphi nicht mit Attributen auf Enum-Werte umgehen kann, habe ich einen anderen Ansatz versucht. TMyEnum ist mein enum. Klasse TMyEnumLabelProvider bietet die Etiketten, die ich brauche. Ich verknüpfe den Enum-Typ mit einem Attribut zu seinem Labelprovider. Dies kompiliert jedoch nicht. Ich kann den Provider nicht vollständig definieren, bevor ich auf seinen Classtyp referenziere, da er TMyEnum in einer seiner Methoden verwendet.

TEnumLabelProviderCallback = procedure(Context: TObject; 
             Index: integer; 
             const Name: string) of object; 

TEnumLabelProvider = class abstract 
public 
    procedure Iterate(Context: TObject; 
         Callback: TEnumLabelProviderCallback); virtual; abstract; 
end; 

TEnumLabelProviderClass = class of TEnumLabelProvider; 

TEnumLabelProviderAttribute = class(TCustomAttribute) 
private 
    FProviderClass: TEnumLabelProviderClass; 
public 
    constructor Create(ProviderClass: TEnumLabelProviderClass); 
    property ProviderClass: TEnumLabelProviderClass read FProviderClass; 
end; 

TMyEnumLabelProvider = class; 

{$SCOPEDENUMS ON} 

[TEnumLabelProvider(TMyEnumLabelProvider)] 
TMyEnum = (MyEnum0, 
      MyEnum1, 
      MyEnum2); 
{$SCOPEDENUMS OFF} 

// This is where the compilation fails..... 
TMyEnumLabelProvider = class(TEnumLabelProvider) 
public 
    class function GetLabel(MyEnum: TMyEnum): string; 
    procedure Iterate(Context: TObject; Callback: TEnumLabelProviderCallback); override; 
end; 

Irgendwelche Ideen, wie man das richtig macht. Für den Moment erarbeite ich, indem ich GetLabel (MyEnum: integer) deklariere, aber offensichtlich bevorzuge ich Typ-strict.

Vielen Dank im Voraus.

Answer 1

Die einfachste Lösung besteht darin, ein statisches Array von Zeichenfolgen zu verwenden, um die Etiketten wie unten definiert zu speichern. Sie können das Array dann einfach mit der Enumeration indizieren, um die erforderliche Beschriftung zu erhalten.

type 
    TMyEnum = (MyEnum0, MyEnum1, MyEnum2); 

const 
    EnumLabels : array[TMyEnum] of string = ('MyEnumLabel0', 'MyEnumLabel1', 'MyEnumLabel2');