ADEL( ) 函式

customer customer customer

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

相關詞條

熱門詞條

聯絡我們