Integer in Enumeration umwandeln

[DeddyH]

Delphi-Quellcode:

type TEnum = (rot, gruen, blau);
var Enum: TEnum;
    iIndex: integer;
begin
  Enum := TEnum(2);
  case Enum of
    rot: ShowMessage('rot');
    gruen: ShowMessage('grün');
    blau: ShowMessage('blau');
  end;
  iIndex := integer(TEnum(Enum));
  ShowMessage(inttostr(iIndex));
end;