And this problems published at www.xharbour.com ?
>>
>> PROCEDURE Main
>>
>> SWITCH 1
>> CASE 1
>> TRY
>> ? a=b
>> CATCH
>> EXIT
>> END
>> END
>> MAIN2()
>>
>> RETURN
>>
>> proc main2()
>> local i
>> try
>> try
>> i++
>> finally
>> ? "finally"
>> inkey(0)
>> try
>> i++
>> finally
>> ? "finally2"
>> inkey(0)
>> break
>> end
>> end
>> finally
>> ? "finally3"
>> inkey(0)
>> end
>> return
>>
>>
>> proc main()
>> p({0},1000)
>> return
>>
>> proc p(a,n)
>> local x
>> for each x in a
>> ? ++x
>> if n > 0
>> p(a,n-1)
>> n:=0
>> endif
>> next
>> return
>>
>>
>>
>> Best regards,
>> Miguel Angel Marchuet
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
