ADEL( ) 函式
刪除一維數組中的一個元素或刪除二維數組的一行或一列。
語法
ADEL(ArrayName, nElementNumber [, 2])
參數
ArrayName
指定一個數組，ADEL( ) 函式刪除這個數組的一個元素或一行一列。
nElementNumber
指定從數組中刪除第幾個元素，或者第幾行或第幾列。如果要從數組中刪除一列，必須包含可選參數 2。
附註
您可以用兩種方法引用二維數組中的一個元素。第一種是用兩個下標值指定元素在數組中的行和列，另一種則指定單個元素的編號。此函式和其他操作二維數組的函式需要單個元素的編號(此處為 nElementNumber)。使用 AELEMENT( ) 函式可以根據元素的行和列下標返回正確的元素編號。
有關如何引用數組中元素的詳細內容，請參閱 DIMENSION。
2
從數組中刪除一列。
返回值類型
數值型
說明
從數組中刪除一個元素、一行或一列，但並不改變數組的大小；後續元素、行或列向數組的起始方向移動，並把最後一個元素、行或列設定為“假”(.F.)。
如果成功地刪除了一個元素、行或列，則返回 1。
adel( ) 函式示例
下面的示例創建並且填充一個數組，然後搜尋一個公司名。如果找到此公司名，則從數組刪除這個公司名。
close databases
open database (home( ) + 'samples\data\testdata')
use customer && 打開 customer 表
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) && 搜尋公司名
if gnpos != 0
*** 找到公司名後，從數組中刪除這個公司名***
= adel(gacompanies, gnpos)
gncount = gncount - 1
endif
display memory like gacompanies
