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

[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

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

[Andreas13]

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

Grüße, Andreas

[dummzeuch]

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

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

[Andreas13]

Danke, Thomas!
bin inzwischen auch drauf gekommen...
Grüße, Andreas