Difference between revisions of "ADEL()"
Yvonne.milne (Talk | contribs) |
Yvonne.milne (Talk | contribs) |
||
| Line 21: | Line 21: | ||
endif | endif | ||
| − | // | + | // Two-dimensional array Examples: |
| − | + | ||
| − | + | // Row | |
| − | + | open database southwind | |
| − | + | use shippers | |
| − | + | copy to array arr1 | |
| − | + | ? arr1 | |
| − | + | // Delete row 2 | |
| − | + | adel(arr1,2) | |
| − | + | ? arr1 | |
| − | + | close data | |
| − | //Delete | + | |
| − | adel( | + | // Results: |
| − | // | + | Array (refcnt=1) |
| − | + | ( | |
| + | [1,1] = 1 | ||
| + | [1,2] = Speedy Express | ||
| + | [1,3] = (503) 555-9831 | ||
| + | [2,1] = 2 | ||
| + | [2,2] = United Package | ||
| + | [2,3] = (503) 555-3199 | ||
| + | [3,1] = 3 | ||
| + | [3,2] = Federal Shipping | ||
| + | [3,3] = (503) 555-9931 | ||
| + | ) | ||
| + | |||
| + | Array (refcnt=1) | ||
| + | ( | ||
| + | [1,1] = 1 | ||
| + | [1,2] = Speedy Express | ||
| + | [1,3] = (503) 555-9831 | ||
| + | [2,1] = 3 | ||
| + | [2,2] = Federal Shipping | ||
| + | [2,3] = (503) 555-9931 | ||
| + | [3,1] = False | ||
| + | [3,2] = False | ||
| + | [3,3] = False | ||
| + | ) | ||
| + | |||
| + | // Column | ||
| + | open database southwind | ||
| + | use shippers | ||
| + | copy to array arr1 | ||
| + | ? arr1 | ||
| + | // Delete column 2 | ||
| + | adel(arr1,2,2) | ||
| + | ? arr1 | ||
| + | close data | ||
| + | |||
| + | // Results: | ||
| + | Array (refcnt=1) | ||
| + | ( | ||
| + | [1,1] = 1 | ||
| + | [1,2] = Speedy Express | ||
| + | [1,3] = (503) 555-9831 | ||
| + | [2,1] = 2 | ||
| + | [2,2] = United Package | ||
| + | [2,3] = (503) 555-3199 | ||
| + | [3,1] = 3 | ||
| + | [3,2] = Federal Shipping | ||
| + | [3,3] = (503) 555-9931 | ||
| + | ) | ||
| + | |||
| + | Array (refcnt=1) | ||
| + | ( | ||
| + | [1,1] = 1 | ||
| + | [1,2] = (503) 555-9831 | ||
| + | [1,3] = False | ||
| + | [2,1] = 2 | ||
| + | [2,2] = (503) 555-3199 | ||
| + | [2,3] = False | ||
| + | [3,1] = 3 | ||
| + | [3,2] = (503) 555-9931 | ||
| + | [3,3] = False | ||
| + | ) | ||
| + | |||
</code> | </code> | ||
Latest revision as of 06:56, 25 February 2015
Contents
Purpose
Function to delete an element from an array
Syntax
ADEL(<array>,<expN>[,2])
See Also
AADD(), AAVERAGE(), ACOPY(), ADESC(), ADIR(), AELEMENT(), AFIELDS(), AFILL(), AINS(), ALEN(), AMAX(), AMIN(), APPEND FROM ARRAY, ARRAY(), ASCAN(), ASIZE(), ASORT(), ASTORE(), ASTRING(), ASUBSCRIPT(), ASUM(), COPY TO ARRAY, DECLARE, DIMENSION, GATHER, IN_ARRAY(), IS_ARRAY(), LOCAL, PRIVATE, PUBLIC, RELEASE, RESTORE, SAVE, SCATTER
Description
The ADEL() function deletes the element at position <expN> of the specified <array>. All elements higher than the deleted element will be shifted down and the last element in the <array> will become .F.. The total number of elements in the <array> will remain the same.
For two-dimensional arrays, the <expN> refers to an entire row of elements, rather than an individual element. If the '2' parameter is included, the <expN> refers to an entire column of elements.
Example
element_no = ascan(flist,"New information") // If element exists if m.element_no > 0 adel(flist,m.element_no) endif // Two-dimensional array Examples: // Row open database southwind use shippers copy to array arr1 ? arr1 // Delete row 2 adel(arr1,2) ? arr1 close data // Results: Array (refcnt=1) ( [1,1] = 1 [1,2] = Speedy Express [1,3] = (503) 555-9831 [2,1] = 2 [2,2] = United Package [2,3] = (503) 555-3199 [3,1] = 3 [3,2] = Federal Shipping [3,3] = (503) 555-9931 ) Array (refcnt=1) ( [1,1] = 1 [1,2] = Speedy Express [1,3] = (503) 555-9831 [2,1] = 3 [2,2] = Federal Shipping [2,3] = (503) 555-9931 [3,1] = False [3,2] = False [3,3] = False ) // Column open database southwind use shippers copy to array arr1 ? arr1 // Delete column 2 adel(arr1,2,2) ? arr1 close data // Results: Array (refcnt=1) ( [1,1] = 1 [1,2] = Speedy Express [1,3] = (503) 555-9831 [2,1] = 2 [2,2] = United Package [2,3] = (503) 555-3199 [3,1] = 3 [3,2] = Federal Shipping [3,3] = (503) 555-9931 ) Array (refcnt=1) ( [1,1] = 1 [1,2] = (503) 555-9831 [1,3] = False [2,1] = 2 [2,2] = (503) 555-3199 [2,3] = False [3,1] = 3 [3,2] = (503) 555-9931 [3,3] = False )
