Enumerado genérico como parámetro

[[nlsgarcia]]

elrayo76,

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...

Revisa este código:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
   Sum1, Sum2, Sum3, Sum4 : Integer;
   SumMsg : String;

begin

   Sum1 := SumEnumValue([A1]);

   Sum2 := SumEnumValue([C5]);

   Sum3 := SumEnumValue([B3,E5]);

   Sum4 := SumEnumValue([]);

   SumMsg := 'Sum1 = %d ' + #13#10 + 'Sum2 = %d' + #13#10 + 'Sum3 = %d' + #13#10 + 'Sum4 = %d';

   MessageDlg(Format(SumMsg,[Sum1, Sum2, Sum3, Sum4]),mtInformation,[mbOK],0);

end;

El código anterior en Delphi 7 sobre Windows 7 Professional x32, es continuación del propuesto en el Msg #3 y Muestra como enviar 0, 1 ó N valores de tipo Enumerado por medio de un Arreglo Dinámico de tipo Variant, como se muestra en la siguiente imagen:



Pregunto:

1- ¿Que versión de Windows (XP, 7, 8, 8.1, 10, Otra) y de cuantos bits (x32, x64) usa tu aplicación?

2- ¿Que versión de Delphi usa tu aplicación?.

Espero sea útil

Nelson.