Wie läßt sich die Anzahl der Elemente eines AufzählungsTyps bestimmen?

[himitsu]

Jupp, High liefert nicht die Anzahl den Index, sondern das Element, also ee.

Mit Ord lässt sich der Index in einen anderen ordinalen Typen (Integer) konvertieren.

Delphi-Quellcode:

Anzahl := Ord(High(MyType)) + 1; 
Anzahl := Succ(Ord(High(MyType))); 
//Anzahl := Ord(Succ(High(MyType)));

Ja, wenn man die Indize im Typen manipuliert/vorgibt, und dabei Lücken entstehen, dann fehlt in der Typeinfo die Liste der Elementnamen (auch wenn es dafür einen einfachen Bugfix gäbe, aber Emba wollte nicht)
und somit fehlt auch die Möglichkeit den Teilbereich zu bestimmen. (dann geht es nur noch über die Speichergröße des ganzen Enum und die ist nunmal 1, 2, 4 oder 8 Bytes, bzw. beim Set bis 32 Byte, also 0..255)

[Andreas13]

Danke, Himitsu!

[Edit]
Anzahl := Ord(Succ(High(MyType))); liefert die Meldung:
[dcc32 Fehler]E1012 Konstantenausdruck verletzt untere Grenzen

[freimatz]

Zitat von Uwe Raabe:

Funktioniert aber nicht bei solchen Deklarationen (aus dem Delphi DokWiki):

Delphi-Quellcode:

type 
  Size = (Small = 5, Medium = 10, Large = Small + Medium);

Das ist auch kein (echter) AufzählungsTyp, sondern so ein Spezialgewürge

[peterbelow]

Zitat von Andreas13:

Danke, Himitsu!

[Edit]
Anzahl := Ord(Succ(High(MyType))); liefert die Meldung:
[dcc32 Fehler]E1012 Konstantenausdruck verletzt untere Grenzen

Anzahl := Succ(Ord(High(MyType))); Succ(High(MyType)) wird von Compiler als vom Typ MyType interpretiert und das gibt natürlich einen Overflow oder Range Check Fehler.

[himitsu]

Ohhh, Na gut, inzwischen ist die blöde Bereichsprüfung nun standardmäßig aktiv,
aber hätte gedacht, die schlägt hier nur auf die "reale" Speichergröße (ein Byte = 256) an.

Mal ausprobieren, ob die auch meckert, wenn man was Größeres zuweisen will.
Test := MyType(123);

[add]
Jo, Zuweisen und Vergleichen geht immernoch,
aber beim Rechnen knallt es wirklich überall.

Delphi-Quellcode:

type
  MyType = (aa, bb, cc, dd, ee);

procedure TForm2.FormCreate(Sender: TObject);
begin
  var Test := MyType(5);
  Test := Pred(Test);  // aka Dec(Test);
  if Test = High(MyType) then
    Beep;

  Test := MyType(6);
  Dec(Test);
  if Test = Low(MyType) then ;
end;