TRY / CATCH / END

[AUGE_OHR]

hi,

i have some FiveWin CODE which use TRY / CATCH / END

how can i use #xTranslate for HMG Syntax

Code: Select all

         TRY
            soCn:Open()
         CATCH
            MsgAlert( "CAN NOT REOPEN" + CRLF + soCn:ConnectionString )
         END

i do NOT want to "re-write" hole CODE. i want to #xTranslate

Code: Select all

#xTranslate TRY   => BEGIN SEQENCE WITH ERRORBLOCK( { | oError | DefError( oError ) } )
#xTranslate CATCH => RECOVER oError 

how get it work ...

[edk]

Maybe like that

Code: Select all

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

[gfilatov]

hi,

i have some FiveWin CODE which use TRY / CATCH / END

how can i use #xTranslate for HMG Syntax

Code: Select all

         TRY
            soCn:Open()
         CATCH
            MsgAlert( "CAN NOT REOPEN" + CRLF + soCn:ConnectionString )
         END

i do NOT want to "re-write" hole CODE. i want to #xTranslate

Code: Select all

#xTranslate TRY   => BEGIN SEQENCE WITH ERRORBLOCK( { | oError | DefError( oError ) } )
#xTranslate CATCH => RECOVER oError 

how get it work ...

Hi Jimmy,

Just add the following string on top of your source:

Code: Select all

#include "hbcompat.ch"

The above statement will introduce the following translate directives:

Code: Select all

   #xcommand TRY => BEGIN SEQUENCE WITH __BreakBlock()
   #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
   #xcommand FINALLY => ALWAYS

Keep it simple

[mol]

How does ALWAYS work? I didn't know that statement

[AUGE_OHR]

hi,

thx for all Answer