Enumerado genérico como parámetro

[[escafandra]]

Empezado por ecfisa

...Si habláramos de C++, es simple hacerlo usando template...

El enunciado y código de la pregunta parece orientado a C++ luego esta es la respuesta correcta.

En realidad un Template expande las funciones para cada clase, el programador escribe una función y el compilador escribe tantas como sean necesarias.


Saludos.

[elrayo76]

Para ver si con esto me pueden ayudar.

Lo que quiero hacer es poder obtener el nombre del dato del enumerado que se le pasa como parámetro a la función y no el valor del mismo. Se que con GetEnumName() se obtiene el nombre, pero lo que me falta es poder pasar genéricamente los enumerados para no tener que hacer cada vez que lo necesite una nueva función por cada enumerado.

Lo que haria es tener en los enumerados como cada uno de los datos los nombres de los campos de las tablas y pasarlos a una función para armar una sentencia SQL para la parte del Where. Esto además de otros datos que recibirá la función en cuestión.

Si lo pensamos abría que escribir la misma funcón para cada una de las tablas y eso es lo que no quiero hacer.

Saludos,
El Rayo

[[Al González]]

En ese caso, creo que la opción del método con parámetro de tipo sería lo más indicado. Aplicando la función TypeInfo sobre T para obtener el PTypeInfo que GetEnumName necesita.

[elrayo76]

Gracias gente por sus respuestas...

Veré de hacerlo usando el TypeInfo. Si llego a lograr algo les comentare que solución le dí por si a alguien le puede servir.

Saludos,
El Rayo

[[nlsgarcia]]

elrayo76,

Empezado por elrayo76

...necesito es ver como se puede hacer para pasar por parámetro en una función un enumerado genérico...similar a lo que permite C# (System.enum)...

Empezado por elrayo76

...Lo que quiero hacer es poder pasar a la función solamente uno de los datos de cualquiera de todos los enumerados que pueda tener...

Empezado por elrayo76

...Lo que quiero hacer es poder obtener el nombre del dato del enumerado que se le pasa como parámetro a la función y no el valor del mismo...

Empezado por elrayo76

...estoy usando Delphi XE8...Windows 7 de 64 bits...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, TypInfo;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TEnum = record
  public
    class function AsString< T >(EnumValue : T): String; Static;
    class function AsInteger< T >(EnumValue : T): Integer; Static;
  end;

  TEnumA = (A1, A2, A3, A4, A5);
  TEnumB = (B1, B2, B3, B4, B5);
  TEnumC = (C1, C2, C3, C4, C5);
  TEnumD = (D1, D2, D3, D4, D5);
  TEnumE = (E1, E2, E3, E4, E5);

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Obtiene el nombre del tipo enumerado genérico
class function TEnum.AsString< T >(EnumValue : T) : String;
begin
   Result := GetEnumName(TypeInfo(T), AsInteger(EnumValue));
end;

// Obtiene el valor del tipo enumerado genérico
class function TEnum.AsInteger< T >(EnumValue : T) : Integer;
begin
   case Sizeof(T) of
      1 : Result := pByte(@EnumValue)^;
      2 : Result := pWord(@EnumValue)^;
      4 : Result := pCardinal(@EnumValue)^;
   end;
end;

// Obtiene el nombre y valor de un tipo enumerado por medio de Genéricos
procedure TForm1.Button1Click(Sender: TObject);
begin

   MessageDlg(Format('EnumValue %s = %d',[TEnum.AsString< TEnumA >(A1), TEnum.AsInteger< TEnumA >(A1)]),mtInformation,[mbOK],0);
   MessageDlg(Format('EnumValue %s = %d',[TEnum.AsString< TEnumE >(E5), TEnum.AsInteger< TEnumE >(E5)]),mtInformation,[mbOK],0);

end;

end.

El código anterior en Delphi XE7 sobre Windows 7 x32, Permite obtener el nombre y valor de un tipo enumerado por medio de un tipo genérico, como se muestra en la siguiente imagen:



Notas:

1- El código esta basado en un ejemplo del Capítulo 3 (Understanding Generics) del libro Coding in Delphi de Nick Hodges.

2- Los tipos genéricos en Delphi no cuentan por el momento de un constraint que verifique que el tipo pasado corresponda a un tipo enumerado.

3- Hasta donde entiendo, no existe en Delphi el equivalente a System.enum de C#.

4- El código propuesto fue probado en Delphi XE4 bajo Windows 7 Professional x64, funcionando correctamente según lo esperado.

5- Si se le asignan valores a la enumeración, el método TEnum.AsInteger< T > falla, funciona correctamente con los valores por default de la enumeración.

Espero sea útil

Nelson.

[[Al González]]

De nada, elrayo76.

El ejemplo de Nelson me parece excelente, creo que es exactamente lo que necesitas.

Cabe agregar que Antonio Castillo escribió un artículo muy relacionado con esto a principios del año anterior.

Ambas aportaciones me parecen muy valiosas.

Saludos.

[ecfisa]

Hola.

Leyendo un poco sobre la cuestión, encontre esta información delphi - how to get type of enum y al parecer hay limitantes con el uso de genericos y enumerados.

Según menciona el segundo mensaje del enlace, no se puede obtener información de tipo mediante TTypeInfo cuando las enumeraciones son discontinuas o no comienzan en cero. Sería interesante que quien tuviera una versión que soporte el uso de generics verificara dicha aserción.

Saludos