Move a array-item

[byte-one]

Hello all!
Has anyone a function to move a array-item to a other position in this array?

[nageswaragunupudi]

Code: Select all  Expand view  RUN

function ArrMoveItem( aArray, nFrom, nDest )

   local u

   u  := aArray[ nFrom ]
   ADel( aArray, nFrom )
   AIns( aArray, nDest, u )

return aArray
 

[byte-one]

Thanks, Mr. Rao! Works perfect.