Enumeration nach Delphi 5 geändert?

[sx2008]

Zitat von Bomberbb:

Delphi-Quellcode:

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

Bei Delphi 5 ist es leider nicht möglich, die Werte bei einem Aufzählungstyp vorzugeben.
Workaround:

Delphi-Quellcode:

const
 Hearts=13;
 Diamonds=14;
 Clubs=22;
 Spades=23;
type
   TSuit = Integer;

Das kann natürlich im Code weitere Änderungen nötig machen.

[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;

[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, ...)

[DeddyH]

Die 0..2 hatte ich deshalb mit drin, falls doch versehentlich der tatsächliche Ordinalwert und nicht der gemappte übergeben wird. Und Defaultwerte hab ich schließlich auch, alles, was nicht passt, wird zu Pik.

[Bomberbb]

na, so ein mist. hab jetzt gedacht, ich installier mir fix D2005, aber das hat wohl probleme mit win7x64. Mal schauen, ob ich es irgendwann schaffe den quelltext zu kompilieren.

An diese definition

Code:

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);

hab ich auch schon gedacht, allerdings gibt es auch solche Definitionen in der Unit:

Code:

TPlatformid = (ePlfmNone = $00000000,ePlfmAll = $0001013F);

und spätestens da stehe ich dumm da...