Używanie odwołania do określonego typu klasy w konstruktorze atrybutów Delphi

Question

Ponieważ Delphi nie może obsłużyć atrybutów w wartościach wyliczeniowych, spróbowałem innego podejścia. TMyEnum to moje wyliczenie. Klasa TMyEnumLabelProvider zapewnia etykiety, których potrzebuję. Łączę typ wyliczeniowy z atrybutem z jego dostawcą etykiet. To jednak nie kompiluje. Nie mogę zdefiniować dostawcy w pełni przed odniesieniem do jego klasy, ponieważ używa TMyEnum w jednej ze swoich metod.

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; 

Wszelkie pomysły, jak to zrobić prawidłowo. Na razie obejść, deklarując GetLabel (MyEnum: integer), ale oczywiście wolę być typu strict.

Z góry dziękuję.

Answer 1

Najprostszym rozwiązaniem jest użycie statycznej tablicy ciągów do przechowywania etykiet zdefiniowanych poniżej. możesz wtedy po prostu zindeksować tablicę za pomocą enum, aby uzyskać wymaganą etykietę.

type 
    TMyEnum = (MyEnum0, MyEnum1, MyEnum2); 

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