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]

Delphi-Quellcode:

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:

Zitat von Delphi.Narium (Beitrag 1521344)

Delphi-Quellcode:

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:

Zitat von Uwe Raabe (Beitrag 1521345)

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:

Zitat von Andreas13 (Beitrag 1521347)

Zitat:

Zitat von Delphi.Narium (Beitrag 1521344)

Delphi-Quellcode:

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:

Delphi-Quellcode:

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

Danke Euch für die Hilfe!

Grüße, Andreas

[dummzeuch]

Zitat:

Zitat von Andreas13 (Beitrag 1521347)

Zitat:

Zitat von Delphi.Narium (Beitrag 1521344)

Delphi-Quellcode:

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

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

[Andreas13]

Danke, Thomas! :-D
bin inzwischen auch drauf gekommen...:oops:
Grüße, Andreas