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

[Andreas13]

Hallo Community,
ich möchte gerne die die Anzahl der Elemente eines AufzählungsTyps ermitteln.
Beispiel:

Delphi-Quellcode:

Type
  MyType = (aa, bb, cc, dd, ee); // --> 5 sollte bestimmt werden

Gibt es dazu eine Delphi-Funktion?

Danke für jede Idee + Anregung im Voraus!

Viele Grüße
Andreas

[Delphi.Narium]

Anzahl := High(MyType) + 1; https://www.delphipraxis.net/104698-...ermitteln.html

[Uwe Raabe]

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

Delphi-Quellcode:

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

[Delphi.Narium]

Steht alles ausführlich im verlinkten Post aus der DelphiPraxis

[Andreas13]

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

Danke Uwe,
aber obige Type-Deklaration paßt leider nicht zu meinem Anwendungsfall
Grüße, Andreas

[Andreas13]

So funktioniert es:
Anzahl := Ord(High(MyType)) + 1; Danke Euch für die Hilfe!

Grüße, Andreas

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

[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

[Andreas13]

Zitat von Delphi.Narium:

Anzahl := High(MyType) + 1; https://www.delphipraxis.net/104698-...ermitteln.html

Sorry Delphi.Narium,
has hatte ich bereits probiert: XE5 meldet:
[dcc32 Fehler] Anzahl_Elemente_AufzaehlungsTyps_1.dpr(52): E2010 Inkompatible Typen: 'Integer' und 'MyType'
Grüße
Andreas

[Delphi.Narium]

Zitat von Andreas13:

Zitat von Delphi.Narium:

Anzahl := High(MyType) + 1; https://www.delphipraxis.net/104698-...ermitteln.html

Sorry Delphi.Narium,
has hatte ich bereits probiert: XE5 meldet:
[dcc32 Fehler] Anzahl_Elemente_AufzaehlungsTyps_1.dpr(52): E2010 Inkompatible Typen: 'Integer' und 'MyType'
Grüße
Andreas

Dann die Variante mit der For-Schleife aus verlinktem Post probieren.

Delphi-Quellcode:

var
  i: TMyEnum;
  Zahler: Integer;
begin
  Zahler := 0;
  for i := Low(TMyEnum) to High(TMyEnum) do
    Inc(Zaehler);
end;