TRY ... CATCH ... END

[driessen]

Hello,

I have a very big dialogbox with lot's of function, use of very complicated arrays etc.

If an error in an array occurs, an errormessage is displayed and the application is quit.

So I tried to avoid the errormessage by using TRY ... CATCH ... END.

My code looks like :

Code: Select all  Expand view

TRY
     DEFINE DIALOG BOX oDlg .....
     REDEFINE GET .....
     REDEFINE LISTBOX ........
     REDEFINE BUTTON ........
     REDEFINE BUTTON ........
     ACTIVATE DIALOG .......
CATCH
     MsgAlert("An error occured but the dialog will be reopened automatically")
     oDlg:End()
END

If I make my code like this, my application is hanging if an error occurs.

If I don't use TRY ... CATCH ... END, the errormessage is displayed.

What do I do wrong?

Thanks.

[Enrico Maria Giordano]

Michel,

can I see a real sample that stops with error?

EMG

[fraxzi]

Hi Michel,

on your catch...end clause, test if oDlg is not NIL before you do oDlg:End().. anyway the error could be prior to that call.
In my experience with xHarbour, i put another try..catch..end on init function..

like:

Code: Select all  Expand view

TRY
    ..
    define dialog...
    ...
    activate dialog
    on init uInitiation()
    ...
CATCH
END

...

static function uInitiation()
TRY
   ...
CATCH
END
return

 

[James Bott]

I think it would be better to find out why the error is occurring and fix it.

What is the error message? Can you tell which line it is occurring on? If so, can we see the code for that line?

[sambomb]

Code: Select all  Expand view

TRY
     DEFINE DIALOG BOX oDlg .....
     REDEFINE GET .....
     REDEFINE LISTBOX ........
     REDEFINE BUTTON ........
     REDEFINE BUTTON ........
     ACTIVATE DIALOG .......
CATCH
     MsgAlert("An error occured but the dialog will be reopened automatically")
     If ValType(oDlg) == "O"
          oDlg:End()
     End
END
 

I think it would be better to find out why the error is occurring and fix it.

2