PC Toledo

Enviado: **15 Nov 2008 12:38**

Itamar,
Estou testando a compilação em Harbrou o aplicativo xHarbour. Ao compilar dá erro no try / catch / end. Após vasculhar o Harbour descobri que não tem esse comando. No lugar usa o begin sequence. Diante disso inclui xHb.lib e mesmo assim o erro continua. Teria que substituir toda a ocorrencia do primeiro pelo último?
Agradeço desde já.
Sérgio

Nota da Moderação (Sygecom): Conforme a regra numero 12(Doze) do fórum, não é permitido mensagens direcionada a um unico membro. Você pode esta revisando as regras no link abaixo:
viewtopic.php?f=40&t=2002

Enviado: **15 Nov 2008 16:10**

Olá Sérgio,
Isso é facil de resolver, basta colocar as linhas abaixo no inicio do seu .PRG:

Código: Selecionar todos

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

Enviado: **16 Nov 2008 23:04**

Obrigado Leonardo.
E switch / case, existe no Harbour? Se não como faço a substituição? Você sabe se os desenvolvedores Harbour têm intenção de colocar TRY /CATCH E SWITCH /CASE?
Sérgio

Enviado: **21 Nov 2008 20:35**

Olá Sergio,
Não faço idéia se vão ou não implantar isso, nesse caso teria que entrar em contato com o grupo de desenvolvimento do Harbour.

PC Toledo

Try /Catch / End em Harbour

Try /Catch / End em Harbour

Re: p/Itamar Lins s/xHrb p/ Hrb

Re: Try /Catch / End em Harbour

Re: Try /Catch / End em Harbour