Try...catching errors in VFP7.0

[DirkVFP]

Hi all.

How do I do the following in VFP7.0?

nHandle = 0

TRY
   nHandle = FOPEN("foo.txt")
   < do some stuff >
CATCH
   MESSAGEBOX("IO error...")
FINALLY
   IF nHandle > 0 THEN 
      FCLOSE(nHandle)
   ENDIF
ENDTRY

Can't find these statements in VFP7.0. I know there's ON ERROR out there, but the above is the way I'm used to do error handling (doing Delphi and .NET).

 

[hannec]

Hi,

you have to use VFP9. TRY CATCH does not exist in VFP7.

EC

 

[Mike Lewis]

TRY/CATCH came in with VFP 8.

In earlier version, you do something like this:

lcOldErrorHandler = ON("ERROR")
ON ERROR llError = .T.
* do something dangerous
ON ERROR &lcOldErrorHandler
IF llError
  * an error occurred
ENDIF

Mike



__________________________________
Mike Lewis (Edinburgh, Scotland)

My sites:
Visual FoxPro (www.ml-consult.demon.co.uk)
Crystal Reports (www.ml-crystal.com)

 

[DirkVFP]

Thanks Mike,

For now, this will do fine. Hope my boss will soon decide to spend some Euros on the newest version of VFP though ;-)

DirkVFP