Ver Mensaje Individual
  #13  
Antiguo 24-06-2008
[David] David is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Málaga
Posts: 417
Reputación: 24
David Va por buen camino
Hola

No me sale, algo he hecho mal, pongo el código que tengo resumido

Código Delphi [-]
private
funciones : array of procedure(A,B,C:Variant) of Object;
procedure LoqueSea(A,B,C:Variant);
implementation

{$R *.dfm}

procedure TForm1.button1(Sender: TObject);
var
 aux1,aux2,aux3 : Variant;
begin
 aux1 := 'primer';
 aux2 := 'segundo';
 aux3 := 'tercero';

 SetLength(funciones,1);
 funciones[0](aux1,aux2,aux3) := LoqueSea(aux1,aux2,aux3); // Aquí me da el error
end;

el error que me da es: Left side cannot assigned to, que la asignación no es correcta, pero como se asigna entonces.

A ver si alguien me ayuda, porque ahora si estoy perdido.

Saludos
Responder Con Cita