elrayo76,
Cita:
|
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.