Anzahl der Elemente eines Aufzählungstyps ermitteln

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