Anzahl der Elemente eines Aufzählungstyps ermitteln

[Ares]

Hallo!

Kann man irgendwie die Anzahl der Elemente eines Aufzählungstyps ermitteln?

Delphi-Quellcode:

type
  TMyEnum = (meEins, meZwei, meDrei);
  ...
  
  int := length(TMyEnum);

In diesem Beispiel sollte also int der Wert 3 zugewiesen werden, weil der Aufzählungstyp TMyEnum drei Elemente hat... Nur geht dies eben nicht mit length. Gibt es eine entsprechende Methode, die dies leistet?

Besten Dank
Ares

[Apollonius]

Wenn du einfache Aufzählungen verwendest, kannst du Ord(High(Typ))+1 verwenden. High(TMyEnum) wäre bei dir meDrei und Ord(meDrei) entsprechend 2. Das geht jedoch nicht, wenn du die ordinalen Werte selbst vergibst, z.b.
TMyEnum = (meEins = 100, meZwei = 53, meDrei = 42);

[Bernhard Geyer]

Delphi-Quellcode:

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

[himitsu]

@Bernhard Geyer
Anzahl := High(TMyEnum) - Low(TMyEnum) + 1; Aber wie Apollonius schon erwähnte geht das nur wenn zwischendurch keine Werte "fehlen".

also bei den einfachen Varianten

Delphi-Quellcode:

Anzahl := High(TMyEnum) - Low(TMyEnum) + 1;
// oder
Anzahl := High(TMyEnum) + 1;  // da Low(TMyEnum) per Defult 0 ist

Und für den Rest gibt es keine Möglichkeit, da nirgend's gespeichert wird welche Werte belegt sind und welche nicht.

Du kannst dir höchstens eine Konstante definieren, wo du selber die vorhandenen Werte einfügst und kannst dieses dann zählen/prüfen lassen.

[Bernhard Geyer]

Sorry quatsch. Schau gerade noch ...

[Ares]

Hallo!

Vielen Dank für den Tipp, die for-Schleife funktioniert prima. Kann man das auch in eine allgemeine Funktion umwandeln, die für einen beliebigen Aufzählungstyp die Anzahl der Elemente ermittel?

Delphi-Quellcode:

function EnumLength(Enum: TClass): Integer;
var i: TClass;
begin
  result := 0;
  try
    for i:=Low(Enum) to High(Enum) do
      inc(result);
  except

  end;
end;

Dies funktioniert leider nicht, weil i in der for-Schleife ein Ordinaltyp sein muss. Ich weiß allerdings nicht wie man einen Ordinaltyp angibt. Etwas wie i: TOrdType; gibt es nicht...

EDIT:
Ok, ich habe gerade erste die weiteren Antworten gesehen. Ich verwende nur Aufzählungstypen, bei denen ich die Ordinalwerte nicht selber vorgebe. Der Spezialfall, dass "zwischendurch Werte fehlen" kann hierbei also ignoriert werden. Für die Variante result := High(TOrdType)-1; fehlt mir auch noch das Wissen wie man korrekt einen Ordinaltyp angibt...

[MrKnogge]

i muss vom typ integer sein.

[Progman]

var i: Integer; !!
Ordinaltypen sind Integer, Char, Byte, Word etc.

[Ares]

Zitat von MrKnogge:

i muss vom typ integer sein.

Das ist soweit ich weiß falsch. Die Schleifenvariable i muss "nur" ein Ordinaltyp sein (Integer ist ein solcher). Die Frage ist also gerade, wie ich die Funktion so deklariere, dass ein Ordinaltyp übergeben wird.

[MrKnogge]

Ich habe mich auf obiges Beispiel bezogen, war vermutlich nur ein kleiner fehler wenn man in Gedanken ist ...