Enumeration nach Delphi 5 geändert?

[himitsu]

oder

Delphi-Quellcode:

TSuit = (dummy0, dummy1, dummy2, dummy3, dummy4, dummy5, dummy6, dummy7,
  dummy8, dummy9, dummy10, dummy11, dummy12, Hearts, Diamonds, dummy15,
  dummy16, dummy17, dummy18, dummy19, dummy20, dummy21, Clubs, Spades);

@DeddyH: die 0..2 sind Falsch und auch der Else-Block ist nicht sicher, vorallem in SuitValue

Delphi-Quellcode:

function OrdValue(Suit: TSuit): integer;
begin
  case Suit of
    Hearts:   Result := 13;
    Diamonds: Result := 14;
    Clubs:    Result := 22;
    Spades    Result := 23;
    else      raise exception // oder notfalls 'nen defaultwert
  end;
end;

function SuitValue(Value: integer): TSuit;
begin
  case Value of
    13: Result := Hearts;
    14: Result := Diamonds;
    22: Result := Clubs;
    23: Result := Spades;
    else raise exception // oder notfalls 'nen defaultwert
  end;
end;

aber besser so:

Delphi-Quellcode:

function OrdValue(Suit: TSuit): integer;
begin
  Result := Byte(Suit);  
end;

function SuitValue(Value: integer): TSuit;
begin
  Result := TSuit(Byte(Value));
  // eventuell auch Result := TSuit(Value);
end; 

// Byte eventuell an die Datengröße anpassen (Word, LongWord, Integer, ...)