Anzahl der Möglichkeiten in einer Aufzählung

[Delphi-Freak]

Hi!
Ich denke, der Titel sagt eh schon alles; als Beispiel:

Delphi-Quellcode:

type
  TMyType = (mtOpt1, mtOpt2, mtOpt3);

Wie bekomme ich da die Anzahl, also in diesem Fall 3, heraus?

LG, ich

[jim_raynor]

Versuche es mit Integer(high(TMyType))+1. Darfst damm aber keine Wertzuweisungen, wie ab Delphi 6 (?) möglich machen. Dann stimmt das nicht mehr.

[Delphi-Freak]

Tschuldige, ich habs auf einmal doch gefunden: http://www.delphipraxis.net/internal...ct.php?t=27715
Ord(High(TMyType)) In der Hilfe steht aber doch, dass High schon einen Integer-Wert zurückgibt
Aber Hauptsache es funktioniert - trotzdem DANKE...

LG, ich

[jim_raynor]

Zitat von Delphi-Freak:

In der Hilfe steht aber doch, dass High schon einen Integer-Wert zurückgibt
Aber Hauptsache es funktioniert - trotzdem DANKE...

Nur bei einem Integer-Typen. Bei einer Aufzählung gibt er den Aufzählungstypen zurück. Eine direkte Zuweisung an einen Integer ist damit nicht möglich

[Hawkeye219]

Hier eine Lösung für Mengen mit Wertzuweisung:

Anzahl := Ord(High(TMenge)) - Ord(Low(TMenge)) + 1; Dieser Ausdruck liefert auch für den folgenden Fall die richtige Lösung (8 Elemente):

Delphi-Quellcode:

TYPE TFarbe = (rot=3, gelb=9, gruen);
     TMenge = SET OF TFarbe;

Von diesen 8 Elementen haben im Beispiel nur 3 einen Namen erhalten. Die restlichen Elemente können aber durchaus vorkommen:

Variable := [rot..gruen]; // enthält alle 8 Elemente Gruß Hawkeye

[Delphi-Freak]

Danke! Nachdem ich aber eh nur mit "einfachen" Aufzählungen (die bei 0 beginnen) arbeite, sollte die obere möglichkeit auch reichen...
Noch hinzuzufügen, für alle zukünftig suchenden: Das mit
Ord(High(TMyType)) gibt nicht die Anzahl aus, da muss man noch eins addieren; wenn man es aber in einer for-Schleife (wie ich) verwendet, dann braucht mans eben nicht...

LG, ich