catchException
Versión Estable
这是一个 VFP 类,旨在捕获异常并将其记录在日志中,并在必要时在更高级别重新启动它们。
没有任何!没有依赖性!
git clone https://github.com/raulvfp/catchException.git catchException
特性:
方法:
第一个 - 此示例不会在更高级别重新启动异常,而是在 catch 块中控制它
bRelanzarThrow = .F. &&NO Relanza la excepcion.
TRY
*--- Este es una excepcion generada con THROW
THROW lcExpectedValue
CATCH TO loEx
loTmp = CREATEOBJECT('catchException', bRelanzarThrow)
THIS.MessageOut('Esto me indica si es un error o algo generador por el programador: ' +loEx.Message)
THIS.MessageOut('Valor de userValue: '+loEx.UserValue)
ENDTRY
2nd - 此示例将异常抛出到更高级别进行控制
bRelanzarThrow = .T. &&Relanza la excepcion al nivel superior.
TRY
*--- Este es una excepcion generada con THROW
THROW lcExpectedValue
CATCH TO loEx
loTmp = CREATEOBJECT('catchException', bRelanzarThrow)
*-- No se ejecuta nada despues del CREATEOBJECT('catchException')
ENDTRY