Board index FiveWin para Harbour/xHarbour Cómo cambiar una funcion por otra ? solucionado

JESUS MARIN

Posts: 199

Joined: Wed Jan 02, 2019 08:36 AM

Cómo cambiar una funcion por otra ? solucionado
Posted: Wed Jul 28, 2021 06: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

Jesús Marín
deumare@gmail.com

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Cómo cambiar una funcion por otra ?
Posted: Wed Jul 28, 2021 07: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 (fw): Select all Collapse

FUNCTION Mensaje()

MsgInfo("hola")

RETURN NIL

Ahora:

Code (fw): Select all Collapse

FUNCTION Mensaje

EnlMensaje()
RETURN NIL

FUNCTION EnlMensaje

MsgInfo("Hola2")

RETURN NIL

JESUS MARIN

Posts: 199

Joined: Wed Jan 02, 2019 08:36 AM

Re: Cómo cambiar una funcion por otra ?
Posted: Wed Jul 28, 2021 08:00 AM

Hola. Gracias por contestar.

No puedo modificar la función llamada.

Imagina que quiero cambiar MsgAlert() por MyMsgAlert()

Jesús Marín
deumare@gmail.com

JESUS MARIN

Posts: 199

Joined: Wed Jan 02, 2019 08:36 AM

Re: Cómo cambiar una funcion por otra ? solucionado
Posted: Wed Jul 28, 2021 09:19 AM

Gracias hmpaquito
Ha funcionado tu respuesta.
No del todo como yo queria, pero lo ajustare
Gracias

Jesús Marín
deumare@gmail.com

FiveTech Support Forums

DEFINE MiFuncion() MiNuevaFuncion()

Continue the discussion