点击或拖拽改变大小

Functions.ADel 方法 (__FoxArray, Int32, Int32)

X#
从一维数组中删除元素，或从二维数组中删除行或列。

命名空间：  XSharp.VFP
程序集：  XSharp.VFP (在 XSharp.VFP.dll 中) 版本：2.22 GA
语法
复制
 FUNCTION ADel(
	foxArray AS FOXARRAY,
	nElementNumber AS LONG,
	 nDeleteType AS LONG
) AS DWORD
查看代码

参数

foxArray
类型：__FoxArray
nElementNumber
类型：Int32
指定从数组中删除的元素、行或列的编号。
如果数组是多维的，nElementNumber 将指定行。
要删除数组中的列，必须包括可选的第二个参数。
有关如何引用数组中的元素的更多信息，请参见DIMENSION命令。
nDeleteType
类型：Int32

返回值

类型：UInt32
数值型
备注
从数组中删除元素或行不改变数组的大小； 相反，数组中的尾随元素、行或列会向数组的开始移动，并且数组中的最后一个元素、行或列会被设置为假(.F。)。
如果您删除了列，删除列中的元素的值会被设置为假(.F。)，但尾随元素不会被移动。
如果成功删除了元素、行或列，返回1。
示例
X#
复制
 1CLOSE DATABASES
 2OPEN DATABASE (HOME(2) + 'Data\testdata')
 3USE customer // 打开客户表
 4
 5SELECT company FROM customer ;
 6    WHERE country = 'UK' ;
 7    INTO ARRAY gaCompanies
 8
 9gnCount = _TALLY
10gcName = 'Seven Seas Imports'
11CLEAR
12
13DISPLAY MEMORY LIKE gaCompanies
14
15gnPos = ASCAN(gaCompanies, gcName) // 搜索公司
16IF gnPos != 0
17    * Company found, remove it from the array
18    = ADEL(gaCompanies, gnPos)
19    gnCount = gnCount - 1
20ENDIF
21
22DISPLAY MEMORY LIKE gaCompanies
参见