Question about TRY ... CATCH ... END

[driessen]

Hello,

I was just wondering if it is possible to suppress certain errors by using TRY ... CATCH ... END.

What do I mean : is it possible to suppress a certain error (example Bound Array Access) by using TRY ... CATCH ... END ? But if other errors might occur, I do want the error-message.

Thanks a lot in advance

[James Bott]

Michel,

Maybe something like this:

Code: Select all  Expand view

TRY
...
CATCH oError
  if oError:genCode != ...
     // do whatever
  endif
END

Regards,
James

[driessen]

James,

Thanks a lot for your answer.

But can you tell me where I can find a list of the codes oError:GenCode ?

Thanks.

[James Bott]

xharbour\include\error.ch

EG_ARRACCESS is array access.

[hag]

James
Where would you place the code. errsysw.prg???

[James Bott]

Harvey,

Where would you place the code. errsysw.prg???

No, this code goes in your app. It is strategically placed where you want to override errorsys.

Search the forum for "CATCH" to see some examples.

Regards,
James

[hag]

Thanks james

[driessen]

James,

Thanks a lot for your help.

I got it now.

[driessen]

James,

Maybe another question about this subject.

I know now how to pick up a certain error by using TRY ... CATCH ... END.

But I want other error-messages to be shown. Is it possible to establish this ?

Thanks a lot in advance.

[James Bott]

Michel,

I'm sure it is possible, but I haven't used TRY/CATCH much and I don't know how. Did you try searching the forum?

James

[driessen]

James,

Thanks a lot for your answer.

No, I didn't search the forum yet. But I will do that and in case I can find an answer, I'll put it here.

Have a nice weekend.

[fraxzi]

Dear Driessen

I do this to examine messages..

Code: Select all  Expand view

TRY
...
CATCH oError
  if ValType( oError) == 'O'
     xBrowse( oError )         //this works
  endif
END

Kind Regards,
Frances