Try Catch

[bencz]

Olá (:

como posso fazer para o catch voltar ao ponto que originou o problema, corrigindo-o igual faz o errorsys ??
Isso eh possivel ??
Quem faz uso do try....catch como esta tratando isto nestes casos

Alexandre

[Imatech]

Exemplo...

Código: Selecionar todos

PROCEDURE RM_TEST_RECOVER( bBlock )
  LOCAL xResult
  LOCAL oError
  LOCAL bOldError := ErrorBlock( {|oError| Break( oError ) } )

  BEGIN SEQUENCE
      xResult := Eval( bBlock )
  RECOVER USING oError
      xResult := ErrorMessage( oError )
  END SEQUENCE

  ErrorBlock( bErrorOld )

RETURN

[bencz]

você poderia postar um exemplo do uso ?

[sygecom]

Exemplo:

Código: Selecionar todos

   TRY
      DBcreate('tabela', aVETOR, 'DBFCDX') // se der erro aqui, cai no CATCH
   CATCH 
      MsgStop("Erro ao Criar tabela")
      __Quit()
   END

[Imatech]

Olá Bencz !

O exemplo acima já é o prototipo pronto para uso...

Qquer dúvida esteja a vontade para novo post...


hbcompat.ch

/* TRY / CATCH / FINALLY / END */
#xcommand TRY => BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
#xcommand FINALLY => ALWAYS

[bencz]

Bom, sobre esse protótipo eu já havia visto, mas, achei interessante, pois, eu coloquei um alert no errorsys.ch, bem no começo do código para mostrar o numero do erro, mas, quando eu uso o try, ele nao mostra o numero do erro, mas ele cai no catch...
será que não tem algo errado neste protótipo ?

[Imatech]

Olá Bencz !


Nessa situação errorsys.ch não é utilizado no tratamento de erros no bloco: Begin...Recover.. Always...End (Try...Catch...Finally...end)
Então o uso de alguma mensagem ( Alert ) sera após Recover/Catch...


Alguem me corrija se estiver enganado...

[bencz]

Entao, como funciona ?