Deletes an element from a one-dimensional array, or a row or column from a two-dimensional array.
ADEL(ArrayName, nElementNumber [, 2]) |
Parameters
- ArrayName
- Specifies the array from which the element, row, or column is deleted.
- nElementNumber
-
Specifies the number of the element, row, or column to delete from the array. If the array is multidimensional, nElementNumber will specify the row. You must include the optional 2 argument to delete a column from the array.
Tip: For more information on how to reference elements in an array, see DIMENSION Command.
- 2
- Deletes a column from the array.
Return Value
Numeric
Remarks
Deleting an element or row from an array doesn't change the size of the array; instead, the trailing elements, rows, or columns are moved towards the start of the array, and the last element, row, or column in the array is set to False (.F.). If you delete a column, values of the elements in the deleted column are set to False (.F.), but trailing elements are not moved.
If the element, row, or column is successfully deleted, 1 is returned.
Example
The following example creates and fills an array, then searches for a particular company name, which, if found, is removed from the array.
В | Copy Code |
---|---|
CLOSE DATABASES OPEN DATABASE (HOME(2) + 'Data\testdata') USE customer && Open customer table SELECT company FROM customer ; WHERE country = 'UK' ; INTO ARRAY gaCompanies gnCount = _TALLY gcName = 'Seven Seas Imports' CLEAR DISPLAY MEMORY LIKE gaCompanies gnPos = ASCAN(gaCompanies, gcName) && Search for company IF gnPos != 0 * Company found, remove it from the array = ADEL(gaCompanies, gnPos) gnCount = gnCount - 1 ENDIF DISPLAY MEMORY LIKE gaCompanies |