[D5] Type Enum Werte zuweisen

[API]

Hi

Delphi 5 kennt diese Syntax nicht. Wie setzt man dies in D5 um?

Delphi-Quellcode:

type
  TSomeEnum = (Enum1 = 1, Enum2 = 6, Enum3 = 80);

[himitsu]

Zitat von API:

Hi

Delphi 5 kennt diese Syntax nicht. Wie setzt man dies in D5 um?

Delphi-Quellcode:

type
  TSomeEnum = (Enum1 = 1, Enum2 = 6, Enum3 = 80);

da kannst du entweder auf andere Typen umsteigen.

Delphi-Quellcode:

type
  TSomeEnum = Byte;

const
  Enum1 = 1;
  Enum2 = 6;
  Enum3 = 80;

oder du mußt mit Füllwerten arbeiten

Delphi-Quellcode:

type
  TSomeEnum = (fill0, Enum1, fill2, fill3, fill4, fill5, Enum2...

In D5 war es noch nicht möglich die Werte vorzubelegen.



und ob sowas ginge, weiß ich jetzt nicht (ab D7 ist dieses jedenfalls nicht möglich ... davor konnt ich jetzt nicht testen)

Delphi-Quellcode:

const
  Enum1 = 1;
  Enum2 = 6;
  Enum3 = 80;

type
  TSomeEnum = (Enum1, Enum2, Enum3);

[edits] so viele Vehler
[noch'n edit] man, bin ich blöd

[Satty67]

Zitat von himitsu:

oder du mußt mit Füllwerten arbeiten

Delphi-Quellcode:

type
  TSomeEnum = (fill0, Enum1, fill2, fill3, fill4, fill5, Enum2...

Das knallt aber dann spätestens bei einem
 aArray : array[TSomeEnum] of Type; Ich musste wegen sowas auch schon den kompletten Quellcode anpassen.

[himitsu]

Zitat von Satty67:

Ich musste wegen sowas auch schon den kompletten Quellcode anpassen.

Delphi-Quellcode:

type TSomeEnum = (Enum1 = 1, Enum2 = 6, Enum3 = 80);
var  aArray: array[TSomeEnum] of Integer;

Length(aArray) = 80;

bei sowas muß man eh aufpassen
denn aarray ist nicht 3 Felder klein ... es ist ja 80 groß
> Array[Low(TSomeEnum)..High(TSomeEnum)] = Array[1..80] [edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]

[Satty67]

Ja, wenn der letzte Wert definiert ist.

Mein Problem hatte ich mit
 TVersion = (Version2 = 2, Version3, Version4);