The following line fails to delete the last element of an array:
ADEL( aArray, -1, .T. )
Replacing -1 with LEN( aArray ) works. It used to work fine until a couple
of months ago.
Here's a self contained test showing the problem:
FUNCTION Main( ... )
LOCAL aArray := {"AAAA", "BBBB", "CCCC"}
ADEL( aArray, -1, .T. )
ADEL( aArray, -1, .T. )
? "Lenght aArray: " + CSTR( LEN( aArray ) )
inkey(0)
ADEL( aArray, LEN( aArray ), .T. )
ADEL( aArray, LEN( aArray ), .T. )
? "Lenght aArray: " + CSTR( LEN( aArray ) )
inkey(0)
RETURN NIL
Thanks
Augusto Infante
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
