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