Enumeration nach Delphi 5 geändert?

[DeddyH]

Oder man schreibt sich 2 Mapping-Funktionen.

Delphi-Quellcode:

type
   TSuit = (Hearts, Diamonds, Clubs, Spades);

function OrdValue(Suit: TSuit): integer;
begin
  case Suit of
    Hearts:   Result := 13;
    Diamonds: Result := 14;
    Clubs:    Result := 22;
    else
      Result := 23;
  end;
end;

function SuitValue(Value: integer): TSuit;
begin
  case Value of
    0, 13: Result := Hearts;
    1, 14: Result := Diamonds;
    2, 22: Result := Clubs;
    else
      Result := Spades;
  end;
end;