Cantidad de elementos de un tipo set

[febito]

Hola necesito ayuda para saber como averiguar la cantidad de elementos que tiene un type "set"
Gracias a todos.

[[Lepe]]

Depende de como esté declarado:

Código Delphi [-]
type TNumeros = (uno=0, dos, tres, cuatro, cinco);
type TSetNumeros = set of Numeros;

Usa High(Tnumeros)

Código Delphi [-]
type TNumeros = set of (uno, dos, tres, cuatro, cinco);

Para este caso no sabría decirte

Espero te sirva.

[roman]

Empezado por Lepe

Usa High(Tnumeros)

Creo que más bien sería Ord(High(Tnumeros)) + 1

Para el otro caso, la única solución que he encontardo es usando RTTI:

Código Delphi [-]
uses
  TypInfo;

function GetSetTypeCount(SetType: PTypeInfo): Integer;
var
  set_ptd: PTypeData;

  enum_pti: PTypeInfo;
  enum_ptd: PTypeData;

begin
  Assert(SetType.Kind = tkSet);

  set_ptd := GetTypeData(SetType);

  enum_pti := set_ptd.CompType^;
  enum_ptd := GetTypeData(enum_pti);

  Result := enum_ptd.MaxValue + 1;
end;

y sólo funciona si la enumeración- en este caso (uno, dos tres, cuatro, cinco) -comienza en cero y no salta elementos, es decir, para cosas como:

(uno=1, dos, tres, cuatro, cinco) ó
(uno, dos, tres=5, cuatro, cinco)

no funciona.

EDITO:

¡Ah! La función se usaría así:

Count := GetSetTypeCount(TypeInfo(TNumeros));

// Saludos

[[Lepe]]

Muchas gracias por la correccion roman.

ahh.. por cierto, ese código es delphi ??

Un saludo