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
