Ordinalwerte von Enumerationstypen in case verwenden

[negaH]

Delphi-Quellcode:

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