$FUNCNAME$
  ADEL()
$CATEGORY$
  Array, Object
$SUMMARY$
   Delete an array element
$LANG_RU$
     .
$SYNTAX$
     ADEL(<aTarget>, <nPosition>) --> aTarget
$LANG_RU$
     ADEL(< >, < >) -->  
$ARGUMENTS$
     <aTarget> is the array to delete an element from.
     <nPosition> is the position of the target array element to be
     deleted.
$LANG_RU$
     < > - ,    .
     < > -    ,  .
$RETURNS$
     ADEL() returns a reference to the target array, <aTarget>.
$LANG_RU$
     ADEL()     < >.


$DESCRIPTION$

     ADEL() is an array function that deletes an element from an array.  The
     contents of the specified array element is lost, and all elements from
     that position to the end of the array are shifted up one element.  The
     last element in the array becomes NIL.

     Warning!  xClipper implements multidimensional arrays by nesting
     arrays within other arrays.  If the <aTarget> array is a
     multidimensional array, ADEL() can delete an entire subarray specified
     by <nPosition>, causing <aTarget> to describe an array with a different
     structure than the original.


$LANG_RU$

     ADEL() -       .
             
          .  
        NIL.

     ---------------------------------------------------------------------
      

      xClipper       
      .   < >  ,
     ADEL()   ,   < >.
     ---------------------------------------------------------------------


$EXAMPLES$

       This example creates a constant array of three elements, and
	then deletes the second element.  The third element is moved up one
	position, and the new third element is assigned a NIL:

	LOCAL aArray
	aArray := { 1, 2, 3 }      // Result: aArray is
				   // now { 1, 2, 3 }
	ADEL(aArray, 2)            // Result: aArray is
				   // now { 1, 3, NIL }


$LANG_RU$

               
         .    
          ,      
       NIL:

       LOCAL aArray := { 1, 2, 3 }  // : { 1, 2, 3 }
       ADEL(aArray, 2)              // : { 1, 3, NIL }


$SEEALSO$
  ACOPY(),AFILL(),AINS(),
$END$
