Enumeration nach Delphi 5 geändert?

[Bomberbb]

Hallo,

ich möchte einen fremden Quelltext mit Delphi 5 kompilieren. Da meckert der Compiler folgendes an:

Delphi-Quellcode:

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

Es scheint so, als ob D5 mit den Zuweisungen nicht klar kommt. Ab welcher Version geht das? Und wie bekomme ich das unter D5 zu laufen?
p.s.: Es handelt hierbei um eine automatisch generierte Unit, die den Zugriff auf eine DLL ermöglicht.

Gruß

BBB

[mkinzler]

Wie lautet die genaue Fehlermeldung?

[fkerber]

Hi!

Redest du wirklich von D5 oder D2005 wir oben angegeben?


Liebe Grüße,
Frederic

[Bomberbb]

Sorry, ist definitiv D5. Wir haben zwar die 2005 hier liegen, sie aber nie wirklich installiert...

Die Fehlermeldung ist:
[Fehler] UnitDll.pas(406): ',' oder ')' erwartet, aber '=' gefunden

[DeddyH]

Wird denn irgendwo im Quelltext mit Ord() auf die zugewiesenen Werte zugegriffen? Ansonsten lass die Zuweisung doch testhalber ganz weg.

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