Cómo cambiar una funcion por otra ? solucionado

Cómo cambiar una funcion por otra ? solucionado

Postby JESUS MARIN » Wed Jul 28, 2021 6:26 am

Buenos dias a todos.
Me surge una duda que no acabo de resolver.

Quiero cambiar una funcion de aviso por una nueva sin tener que repasar todos los prgs.

Creo recordar que habia un instruccion que "macro" sustituía.
Algo así como :

# DEFINE MiFuncion() MiNuevaFuncion()

¿alguien recuerda la sintaxis correcta o cómo debo hacerlo?

Gracias
Last edited by JESUS MARIN on Wed Jul 28, 2021 9:18 am, edited 1 time in total.
Jesús Marín
JESUS MARIN
 
Posts: 174
Joined: Wed Jan 02, 2019 8:36 am

Re: Cómo cambiar una funcion por otra ?

Postby hmpaquito » Wed Jul 28, 2021 7:14 am

Hola,

Yo lo haría de otra forma. Lo haría cambiando la funcion llamada. Eso te ahorra repasar los .prgs para incluir el #Define y te evita que se olvide alguno:


Antes:

Code: Select all  Expand view
FUNCTION Mensaje()

MsgInfo("hola")

RETURN NIL


Ahora:

Code: Select all  Expand view
FUNCTION Mensaje

EnlMensaje()
RETURN NIL

FUNCTION EnlMensaje

MsgInfo("Hola2")

RETURN NIL

 
hmpaquito
 
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Cómo cambiar una funcion por otra ?

Postby JESUS MARIN » Wed Jul 28, 2021 8:00 am

Hola. Gracias por contestar.

No puedo modificar la función llamada.

Imagina que quiero cambiar MsgAlert() por MyMsgAlert()
Jesús Marín
JESUS MARIN
 
Posts: 174
Joined: Wed Jan 02, 2019 8:36 am

Re: Cómo cambiar una funcion por otra ? solucionado

Postby JESUS MARIN » Wed Jul 28, 2021 9:19 am

Gracias hmpaquito
Ha funcionado tu respuesta.
No del todo como yo queria, pero lo ajustare
Gracias
Jesús Marín
JESUS MARIN
 
Posts: 174
Joined: Wed Jan 02, 2019 8:36 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 5 guests