Errorsys
Posted: Thu Apr 30, 2015 10:09 am
Buenos días,
se puede evitar la inclusión de errorsys en el ejecutable ?
Muchas gracias.
Saludos
se puede evitar la inclusión de errorsys en el ejecutable ?
Muchas gracias.
Saludos
Code: Select all
bDefErrHandler:=ErrorBlock( { || NIL } )
Code: Select all
bDefErrHandler:=ErrorBlock( NIL )
Code: Select all
bDefErrHandler:=ErrorBlock( { | oError | TuManejadorDeError( oError ) } )
Code: Select all
// Punto donde necesitas que se active tu rutina de manejo de errores en caso de un error
bDefErrHandler:=ErrorBlock( { | oError | TuManejadorDeError( oError ) } )
...
...
tu_codigo...
...
...
// Punto donde restauras la llamada al manejador de errores por defecto de [x]Harbour
ErrorBlock( bDefErrHandler )
...
Ahora... como criterio personal, no creo que sea buena idea eliminar el manejador de errores... de todas formas, como en gusto y colores no existen leyes ni paradigmas, creo que con lo que te he comentado aca deberias poder resolver tu inquietud...Syntax
ERRORBLOCK([<bErrorHandler>]) --> bCurrentErrorHandler
Arguments
<bErrorHandler> is the code block to execute whenever a runtime
error occurs. When evaluated, the <bErrorHandler> is passed an error
object as an argument by the system.
Returns
ERRORBLOCK() returns the current error handling code block. If no error
handling block has been posted since the program was invoked,
ERRORBLOCK() returns the default error handling block.