Miguel,
FOR EACH, WITH OBJECT, HB_QWith(), TRY/CATCH/FINALLY SWITCH/CASE were
all originated in xHarbour, and they are already fully supported.
Ron
On Jun 25, 2008, at 2:00 AM, Miguel Angel Marchuet wrote:
> I was porting to xharbour and implementing some things,
>
> FOR EACH,
> WITH OBJECT <o>
> HB_QWith( <nWidth> )
> TRY WITH <bError>
> ...
>
> to solve this problems and break actual limit.
>
> I need time to test it enought. This is my problem so much work and
> only 24 hours at day.
>
>
> 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
>
-------------------------------------------------------------------------
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
