Anzahl der Elemente eines Aufzählungstyps ermitteln

[Ares]

Das Ganze müsste irgendwie so aussehen:

Delphi-Quellcode:

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

  end;
end;


ODER

function EnumLength(Enum: Ordinaltyp): Integer;
begin
  result:= High(Enum) + 1;
end;

In beiden Fällen muss ich wissen, was ich an Stelle von Ordinaltyp angeben muss.