with this or similar code it can works:
HB_FUNC( ADEL )
{
PHB_ITEM pArray = hb_param( 1, HB_IT_ARRAY );
if( pArray )
{
if( pArray->item.asArray.value->ulLen )
{
long lpos = ISNUM( 2 ) ? hb_parnl( 2 ) : 1;
lpos = lpos > 0 ? lpos : hb_arrayLen( pArray ) + lpos + 1;
if( hb_arrayDel( pArray, ( ULONG ) lpos ) )
{
#ifndef HB_C52_STRICT
PHB_ITEM pShrink = hb_param( 3, HB_IT_LOGICAL );
if( pShrink && pShrink->item.asLogical.value )
{
hb_arraySize( pArray, pArray->item.asArray.value->ulLen - 1
);
}
#endif
}
}
/* ADel() returns the array itself */
if( hb_stackItemFromBase( 1 )->type & HB_IT_BYREF )
{
hb_itemCopy( hb_stackReturnItem(), pArray );
}
else
{
hb_itemForwardValue( hb_stackReturnItem(), pArray );
}
}
}
Best regards,
Miguel Angel marchuet
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de
virus 4529 (20091021) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
------------------------------------------------------------------------------
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
