Anzahl der Elemente einer Aufzählung

[Andreas L.]

Hi,

wie kann ich die Anzahl der Elemente einer Enumeration ermitteln?

Folgendes funktioniert leider nicht:

Delphi-Quellcode:

type
  TCsScCategory = (
    cscText,
    cscInteger,
    cscFloat,
    cscDateTime,
    cscColor,
    cscURL,
    cscHTML,
    cscEncryption,
    cscHash
  );

...
...

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := High(TCsScCategory);
  // i := Length(TCsScCategory); 
  ShowMessage(IntToStr(i));
end;

Bei beiden Varianten erhalte ich vom Compiler die Meldung:

Zitat:

[DCC Fehler] Unit1.pas(42): E2029 '(' erwartet, aber ')' gefunden

Schöne Grüße,
Andreas

[Furtbichler]

Nee, da hast Du einen anderen Fehler drin.
Das hier funktioniert:

Delphi-Quellcode:

Var
  Anzahl : Integer;

Begin
  Anzahl := Ord(High(TMeineAufzaehlung))-1;

Das funktioniert aber nur, wenn Du Delphi die Nummerierung der Aufzählungselemente überlässt (so, wie Du es ja auch gemacht hast).

[Andreas L.]

Deine Variante funktioniert, nur das ich plus 1 statt Minus 1 rechnen muss.

Danke für deine Hilfe

[SirThornberry]

Dann am besten gleich
ord(high(YourEnum)) - ord(low(YourEnum)) + 1

[Andreas L.]

Zitat von SirThornberry:

Dann am besten gleich
ord(high(YourEnum)) - ord(low(YourEnum)) + 1

Und worin liegt bei deiner Methode der VOrteil zu der von Furtbichler?

[Sir Rufo]

Die Furtbichler Variante liefert den Index des höchsten Wertes (8) zurück.
Die SirThornberry Variante liefert die Anzahl (8-0+1=9) zurück

[himitsu]

Im Prinzip darin, daß die Zählung nicht unbedingt bei 0 begonnen werden muß.

Aber wenn man es ganz genau sieht, müßte man sogar noch genauer hingucken, denn auch zwischendurch kann was weggelassen werden, aber real paßt noch viel mehr in in diese Variable rein. (2 hoch (SizeOf(TMeineAufzaehlung) * 8))


(aber leider ist die RTTI seit jahrzehnten defekt, wenn es um Enums mit benutzerdefinierten Werten geht)

Delphi-Quellcode:

type
  TMeinGemeinerEnum = (Abc=3, Xyz=9);

Anzahl = 2
Low(TMeinGemeinerEnum) = Abc
High(TMeinGemeinerEnum) = Xyz
Ord(Low(TMeinGemeinerEnum)) = 3
Ord(High(TMeinGemeinerEnum)) = 9
Ord(High(TMeinGemeinerEnum)) + 1 = 10 (aka Lenght, wenn man bei 0 beginnt zu zählen)
Ord(High(TMeinGemeinerEnum)) - Ord(Low(TMeinGemeinerEnum)) + 1 = 7

[Popov]

Zitat von Sir Rufo:

Die Furtbichler Variante liefert den Index des höchsten Wertes (8) zurück.
Die SirThornberry Variante liefert die Anzahl (8-0+1=9) zurück

Auch wenn es Null ist, es ist eine Zahl die da hin gehört.

Ach, in meinen Programmen findest du oft solche Konstrukte wie: x - 1 + 1 . -1 weil x bei 0 anfängt und +1 weil mir das egal ist. Ne, natürlich nicht, sondern es hat meistens auch einen Grund. Und auch wenn x - 1 + 1 dämlich aussieht, nach einem Jahr kriegt man die Logik der Formel besser hin als wenn es fehlen würde.

[Furtbichler]

Zitat von SirThornberry:

Dann am besten gleich
ord(high(YourEnum)) - ord(low(YourEnum)) + 1

Da High eh nur funktioniert, wenn man die Nummerierung nicht selbst vornimmt, ist das auch nicht 'richtiger', sondern genauso ungenügend, wie mein Vorschlag, der zudem noch falscher war.

Es gibt wohl keine vollständig korrekte Lösung.

[Andreas L.]

Guten Morgen

Danke für die vielen informativen Antworten.

Für den Moment ist die Variante von Furtbichler für mich ausreichend.

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