Ordinalwerte von Enumerationstypen in case verwenden

[Chewie]

Hmm, ich bin gerade am Überlegen, ging das jetzt nur bei C# oder auch bei Delphi?

Ich definiere einen Enumerationstypen:

Delphi-Quellcode:

TReportInterval = (riNever, riSeldom, riNormal, riOften, riRealtime);

Nun bekommt riNever doch den Wert 0, riSeldom 1 etc., oder? Wenn ja, wie kann ich dann die Werte in einer case-Abfrage einfügen? Also etwa so (funktioniert so nicht):

Delphi-Quellcode:

procedure TAdminForm.ReportIntervalClick(Sender: TObject);
begin
  case TComponent(Sender).Tag of
    riNever:
    riSeldom:
    riNormal:
    riOften:
    riRealtime:
  end;
end;

Hab ich also gerade ein Brett vorm Kopf oder geht das grundsätzlich nicht?

[negaH]

Delphi-Quellcode:

procedure TAdminForm.ReportIntervalClick(Sender: TObject); 
begin 
  case TReportInterval(TComponent(Sender).Tag) of 
    riNever: 
    riSeldom: 
    riNormal: 
    riOften: 
    riRealtime: 
  end; 
end;

[Chewie]

:wall:
Klar, den Cast in den richtigen Typ. Danke für die schnelle Hilfe.