Lanzar evento....

[craven]

Hola a todos. La duda que tengo sobre el lanzamiento de un evento es la siguiente. Quisiera que al lanzar un determinado evento, se retorne en el mismo un conjunto de valores dentro de un array, es decir:

TMiEv = procedure (Sender: TObject; datos: array of variant) of object ;

Como veis asi declaro el evento, pero en el capturador del evento, cuando quiero acceder a los datos del array me da error. ¿Por qué? ¿Hay alguna otra forma de hacerlo? Los datos que contiene el array son de distintos tipos (entero, real y cadena de caracteres). Gracias de antemano por la ayuda. Un saludo.

[Julià T.]

Y como accedes?

[[gatosoft]]

EL problema que tienes es la manera como defines tu variable de salida. Es erroneo hacer :

TMiEv = procedure (Sender: TObject; datos: array of variant) of object ;

debes definir la variable datos asi:

TMiEv = procedure (Sender: TObject;  VAR  datos: array of variant) of object ;

Y dentro de tu codigo, la puedes utilizar asi:

Procedure CalcularAlgo;
   var vDatos:Array of Variant;
Begin

{.....Calculos.....}

if Se_cumplio_Condicion then
    if assigned(FMiEv) then
       begin
          FMiEv(self, vDatos);
          for i:= low(vDatos) to high(vDatos) do
               {...haces lo que quieras....}
       end;

end;

Ya lo probe y funciona asi, pero me pregunto: ¿para que utilizas este tipo de eventos?. Lo digo por que al principio me llamo la atencion un evento que devolviera valores de ese modo, y me hice la misma pregunta que Julià T.: "¿y como accedes?". Es una manera poco comun de definir un evento. (me parece)

[craven]

Antes de nada, gracias.

Lo que estoy intentado hacer es un pequeño panel de opciones, de forma que al pulsar OK se lance un evento, capturable y que retorne todas las modificaciones realizadas en las opciones que se presentan en dicho panel.

El problema que se me presenta al utilizar este tipo de array abierto es que cuando intento asignar el valor de una casilla a la variable que deseo, me da un fallo.

Un saludo.

[[gatosoft]]

Bueno, el problema tal vez sea que no inicializas la variable Datos. como es un vector dinámico, debes decirle cual es la lomgitud de los datos que estas almacenando, con: SetLength .

Ahora, si ya lo hiciste, y te marca error al asignar una variable (cosa bien rara, por que por definicion, un variant acepta cualquier cosa), lo mas probable es que estes utilizando un subindice equivocado. Por ejemplo:

vSubIndice:=0;
{....}
inc(vSubuIndice);
SetLength(vDatos, vSubindice);
vDatos[vsubIndice]:=1234;

Esto es un error, pues la lista se inicializa en Cero. por lo que debes hacer:

vSubIndice:=0;
{....}
inc(vSubuIndice);
SetLength(vDatos, vSubindice);
vDatos[vsubIndice-1]:=1234;