Enumerado genérico como parámetro

[elrayo76]

Gente, he visto todo lo que me pasaron para lo que necesito, pero igualmente sigo sin resolver el inconveniente.

El problema es que todo lo que dicen es solamente para obtener dle dato del enumerado su nombre. Lo que yo necesito es poder pasarle a una función ese dato que proviene de cualquier enumerado y dentro de la función utilizar cualquiera de las opciones que plantean para poder devolver el nombre del mismo.

es decir:

Código Delphi [-]
TEnum1 = (a1, b1, c1);
TEnum2 = (a2, b2, c2);

procedure ejemplo(const aValor: TEnum)
begin
  // Acá usaría por ejemplo la alternativa de Nelson para obtener el nombre del datos enumerado que le paso como parametro.
  // Donde digo enumerado en el parámetro debe permitir poner como valor cualquiera de los datos de los dos enumerados.
end;

Lo que se hace con el dato del enumerado dentro de la función es algo secundario pues todos me dieron distintas respuestas de como obtener lo que yo necesito. El tema es que nadie me dice como pasar genéricamente el dato del enumerado como parámetro de la función sin necesidad de tener que hacer nada extra antes de usar la función.

Saludos,
El Rayo

[[nlsgarcia]]

elrayo76,

Empezado por elrayo76

...nadie me dice como pasar genéricamente el dato del enumerado como parámetro de la función sin necesidad de tener que hacer nada extra antes de usar la función...

Te comento:

1- No existe en Delphi el equivalente a System.enum de C#, por lo tanto no es posible pasar un parámetro de una función o procedimiento como un tipo enumerado genérico, sin embargo existen los tipos genéricos.

2- Te sugiero revisar el código propuesto en el Msg #12 (tipos genéricos), quizás lo puedas adaptar a tu aplicación.

Espero sea útil

Nelson.

[[Al González]]

Empezado por elrayo76

[...] nadie me dice como pasar genéricamente el dato del enumerado como parámetro de la función sin necesidad de tener que hacer nada extra antes de usar la función.

En Object Pascal suele ser necesario hacer algo extra para conseguir ciertas cosas. Sin embargo, se compensa con un código más elegante, comprensible y seguro que el de otros lenguajes.

Es necesario que tu función sea un método, es decir, que esté declarada dentro de una clase o bien dentro de un tipo record, y además tener un parámetro de tipo (es esa letra T que ves entre símbolos de menor y mayor que, en el ejemplo de Nelson). Aprovecha estas nuevas capacidades de Delphi, son precisamente para resolver casos especiales como el tuyo.

Saludos.

[[nlsgarcia]]

Alberto,

Empezado por Al

...En Object Pascal suele ser necesario hacer algo extra para conseguir ciertas cosas. Sin embargo, se compensa con un código más elegante, comprensible y seguro que el de otros lenguajes...

Nelson.

[[Lepe]]

Empezado por elrayo76

El tema es que nadie me dice como...

El tema es que no se puede porque has/han complicado tanto las cosas que ahora estás en un callejón sin salida. El problema es por un mal diseño de los tipos, no por el lenguaje. Delphi es así para obligarte a pensar las cosas bien desde un principio. Todo ordenado y cada animal en su jaula.

El hecho de tener un Tipo de Datos (piensa en un "Tipo" como si fueran jaulas de distinto tamaño para distintos animales) y ahora quieres meter un Elefante en la jaula de una tortuga [...]. Eso es la señal que estás haciendo las cosas mal. Lo siento, toca pensar las cosas de nuevo.

En C++ no hay "tamaños de jaulas", agrandas la jaula a voluntad y la disminuyes sobre la marcha...eah! todo junto y revuelto . Y esto mismo es lo que evita Delphi por el fuerte tipificado de datos. Te obliga a separar churras (TEnum1) de meninas (TEnum2).

¿te das cuenta que tienes la solución con un simple número entero y descripción? Así como se hacía en los años 80:
- del 0 al 100 son errores de base de datos (TEnum1)
- del 101 al 200 son errores de memoria (TEnum2)

Código Delphi [-]
procedure ( Enum : integer);
begin 
//  con un array de string donde el indice es el parámetro Enum, 
// y el texto es el otro valor que quieres, lo tienes solucionado
end;

Pero no, quieres tener 2 tipos de datos (que al final son números enteros de 0 hasta 255) para después, por técnicas complejas (como RunTime Type Information), volver a tener el nombre/texto de ese valor... WTF!! o mejor dicho: KISS (Keep It Simple Stupid!)


Todo esto viene porque los requerimientos que estás pidiendo, fuerzan a cambiar las especificaciones iniciales. YA No necesitas un Tipo enumerado, quizás una clase que tenga dos cosas como "código de error" y "Descripción", o quizás "valor" y "clase de error" ... Incluso puede que sirva un "Array de record"

Saludos

[[escafandra]]

A las bravas, mira este ejemplo de casting forzado:

Código Delphi [-]
type
TEnum1 = (a1, b1, c1);
PEnum1 = ^TEnum1;
TEnum2 = (a2, b2, c2);
PEnum2 = ^TEnum2;

procedure ejemplo(const aValor: TEnum1);
var
 E1: TEnum1;
 E2: TEnum2;
begin
 E1:= (PEnum1(@aValor))^;
 E2:= (PEnum2(@aValor))^;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ejemplo(a1);
end;

Usando el cast de punteros puedes forzar la conversión a cualquier cosa, como en C.

Saludos.