TRY / CATCH ¿Estan disponibles en Harbour_CE?

[tsales]

Antonio
¿Es posible incorporar el uso de Try/Catch/End en Harbour_CE?

Saludos
Toni Sales

[jlcapel]

Antonio,

¿Has actualizado los cambios del cvs al harbour PPC?

¿Tienes alguna idea de fecha?

[Antonio Linares]

Toni,

TRY/CATCH se pueden implementar de esta forma (Przemek):

Code: Select all  Expand view  RUN

   #xcommand TRY              => bError := errorBlock( {|oErr| break( oErr ) } ) ;;
                                 BEGIN SEQUENCE
   #xcommand CATCH [<!oErr!>] => errorBlock( bError ) ;;
                                 RECOVER [USING <oErr>] <-oErr-> ;;
                                 errorBlock( bError )


Tienes que delarar una variable bError

[Antonio Linares]

Jose Luis,

Actualizamos los cambios del SVN (ya no se usa CVS) cada cierto tiempo.

El build actual es de Julio del 2007

[tsales]

Gracias Antonio. Funciona Correctamente.

Solo una pregunta. Es obligatorio finalizar con un END SEQUENCE, o para seguir el mismo criterio ¿Seria correcto esto?

#xcommand ENDCATCH => END SEQUENCE

Saludos.
Toni Sales

[Antonio Linares]

Toni,

Nosotros lo hemos usado en la construcción del ADORDD así:

TRY
...
CATCH
...
END

y ha funcionado bien

[tsales]

Gracias Antonio.
Funciona perfectamente como indicas.

Saludos
Toni Sales