OverLoad con parametro Nil

[Neeruu]

Hola a todos!!!

Tengo la siguiente duda:

Tengo una Procedure :

Código Delphi [-]
Procedure AsignaExecute(MyBtnAction:TButtonAction; MyExecute:TNotifyEvent);

y lo invocaba de esta manera sin ningún problema (o sea compilaba y ejecutaba)

Código Delphi [-]
AsignaExecute(baSearch, Nil);

Ahora resulta que extendí ese procedimiento, y me quedo así:

Código Delphi [-]
  
Procedure AsignaExecute(MyBtnAction:TButtonAction; MyExecute:TNotifyEvent); overload;
Procedure AsignaExecute(MyBtnAction:TButtonAction; MyExecute:TNotifyEvent;
    bMostrar:Boolean); overload;

Hasta aca todo bien pero al momento de compilar me sale el error de:

E2250: There is no overloaded version of '%s' that can be called with these arguments

Lo solucione, pero no se porque:

Código Delphi [-]
    
MyExecute := Nil;
AsignaExecute(baSearch, MyExecute, True);

Si alguien me podría explicar porque pasando 'Nil' no anda... y pasando el parámetro en una variable si!!!!


Saluda Atte Neeruu!!!

[javier7ar]

no es porque pasas nil en una variable, sino porque estas pasando 3 parametros en vez de 2
Igualmente, con 2 parametros deberia andar, a menos que tengas un valor por defecto en el tercer parametro...
Copiaste bien el codigo que puones aca ??

[Neeruu]

Hola Javier:

Si esta bien copiado....
Fíjate que en la primera función son 2 parámetros, en la segunda son 3 parámetros, por eso esta el "overload", para sobrecargar la función....


Mira las declaraciones de las funciones:

Código Delphi [-]
Procedure AsignaExecute(MyBtnAction:TButtonAction; MyExecute:TNotifyEvent); overload;
Procedure AsignaExecute(MyBtnAction:TButtonAction; MyExecute:TNotifyEvent; bMostrar:Boolean); overload;

Saluda Atte Neeruu!!!

[javier7ar]

Si, eso si. Yo me referia a cuando lo llamas:
en el primer caso lo estas llamando con 2 parametros:

Código Delphi [-]
AsignaExecute(baSearch, Nil);

y en el segundo con 3 parametros:

Código Delphi [-]
MyExecute := Nil;
AsignaExecute(baSearch, MyExecute, True);

A lo que me refiero es que no funciona porque asignas nil a una variable, sino porque lo estas llamando con mas parametros. Estoy seguro que si probas:

Código Delphi [-]
AsignaExecute(baSearch, nil, True);

tambien debe funcionar.
Lo que no entiendo todavia es por que no funciona con 2 parametros...

[javier7ar]

me retracto de lo que dije...

haciendo pruebas, vi que

Código Delphi [-]
AsignaExecute(baSearch, nil, True);

tampoco funciona, y creo saber por que es...

Cuando usas overloading de funciones o procedimientos, para saber cual de todos los AsignaExecute tiene que usar, Delphi busca por cantidad y tipo de los parametros que le pasas y los compara con la cantidad y tipo de los parametros de las distintas declaraciones de AsignaExecute... y cual es el tipo de nil ?? bueno, creo que por ahi viene la mano

No estoy seguro de cual es el tipo de nil, porque no lo dice especificamente en la ayuda, solo dice que es una contante que se puede asignar a cualquier puntero, asi que podria ser Pointer, y en ese caso cuando busca que AsignaExecute debe ejecutar, estaria buscando una declaracion mas o menos asi:

Código Delphi [-]
Procedure AsignaExecute(Param1:TButtonAction; Param2:Pointer); overload;

y no la encuentra, por eso el error.

Esto es una consecuencia de usar overloading de funciones o procedimientos, que no pasaria si el procedimiento no estuviese sobrecargado (overload).
Asi que vas a tener que asignar nil a una variable como le venis haciendo, si queres usarlo de esta forma.

Tambien existe otra alternativa, y es usar valores por defecto en los parametros:
en ves de hacer overloading declaras un solo procedimiento con un valor por defecto para el ultimo parametro:

Código Delphi [-]
Procedure AsignaExecute(MyBtnAction:TButtonAction; MyExecute:TNotifyEvent; bMostrar:Boolean = FALSE);  // o = TRUE

y lo usas asi:

Código Delphi [-]
AsignaExecute(baSearch, nil);  //Toma el valor FALSE por defecto para el ultimo parametro
AsignaExecute(baSearch, nil, True);
//Tambien podes usar una variable
MyExecute := Nil;
AsignaExecute(baSearch, MyExecute);  //Toma el valor FALSE por defecto para el ultimo parametro
AsignaExecute(baSearch, MyExecute, True);

es otra opcion que te puede servir o no, pero te la dejo para que la mires
Saludos

[Neeruu]

Hola Javier gracias por tu respuesta...

Voy a ver lo que me decís de poner un parámetro con valor por defecto...


Desde ya muchas gracias por tu explicación....


Saluda Atte Neeruu!!!