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

Delphi-Quellcode:

Ord(High(TMyType))

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

LG, ich

[jim_raynor]

Zitat:

Zitat von Delphi-Freak

In der Hilfe steht aber doch, dass High schon einen Integer-Wert zurückgibt :roll:
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:

Delphi-Quellcode:

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:

Delphi-Quellcode:

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

Delphi-Quellcode:

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