? ValType( &( 'strzero(1,5,2)' ) )
--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to a topic in the Google Groups "Harbour Users" group.
To unsubscribe from this topic, visit https://groups.google.com/d/topic/harbour-users/MC_CuDEo7hk/unsubscribe.
To unsubscribe from this group and all its topics, send an email to harbour-user...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/harbour-users/f2a32945-a551-426f-ab77-22e2fa0410d5n%40googlegroups.com.
Not easy to make a valid test.
May be a workaround, not a solution, make your own tests:
FUNCTION TestMacro( cMacro )
LOCAL xValue
BEGIN SEQUENCE WITH __BreakBlock()
xValue := &( cMacro )
ENDSEQUENCE
RETURN xValue
FUNCTION TestCompile( cMacro )
LOCAL bCode, xValue
bCode := hb_Compile( cMacro )
IF bCode == Nil
RETURN Nil
ENDIF
BEGIN SEQUENCE WITH __BreakBlock()
xValue := Eval( bCode )
ENDSEQUENCE
RETURN xValue
José M. C. Quintas
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/harbour-users/7df35b1c-2e34-45a8-a593-c82c438d93a1n%40googlegroups.com.