ProcExists()

[karweru]

Hello,

Somebody please assist me how to check for procedure existance in harbour. I need to use it to check if a function exists prior to calling it so that it doesn't cause a gpf. When i use procExists(), hmg IDE returns the error "Linkeer .hbmk\win\mingw.....undefined refrence to 'PROCEXISTS'

Merry x-mas to you all.

[gfilatov]

Hello,

Somebody please assist me how to check for procedure existance in harbour. I need to use it to check if a function exists prior to calling it so that it doesn't cause a gpf. When i use procExists(), hmg IDE returns the error "Linkeer .hbmk\win\mingw.....undefined refrence to 'PROCEXISTS'

Merry x-mas to you all.

Hello Gilbert,

Try the following function:

Code: Select all

Function procExists( cFunc )

Return !( Type ( cFunc + '()' ) $ 'U,UE' )

Usage:
...
mVar := "myFunc"
If !procExists( mVar )
MsgAlert("Function "+ mVar + "() is not defined.")
EndIf
...

Hope that helps.

[dhaine_adp]

Function procExists( cFunc )

Return !( Type ( cFunc + '()' ) $ 'U,UE' )

Hi Grigory,

Well, well, simple yet powerful code, Grigory. I admire that, the signature of a master.

Regards,

Danny

[karweru]

Thank you so so much Grigory! It works like a charm! Thank you indeed for coming to my aide. Have a very merry christmas!