重定义数组示例

示例 1 演示增加一维数组大小。(注意,如果在命令窗口中键入这些命令,数组就是 public 型的,但是如果这些命令在一个程序中运行,数组就是 private 的)。
如果数组中元素的数目减少了,就删除这些元素和它们包含的所有数据。当一个一维数组变为二维数组时,原先一维数组中的内容就以行优先的顺序,复制到新数组中。

示例 2 将一维数组转换成二维数组。一维数组中元素的内容复制到新数组的第一行,接下来是第二行。增加的元素初始化为“假”(.f.)。

当一个二维数组转化成一维数组时,原先二维数组中的内容以行优先的顺序复制到新数组中。二维数组中第一行的第一个元素成为一维数组中的第一个元素,二维数组中第一行的第二个元素变成一维数组中的第二个元素,等等。

可使用 adel( ) 或 ains( ) 删除或插入数组元素、行和列。使用 append from array、copy to array、scatter 和 gather 在表记录和数组之间传输数据。

示例 3 创建二维数组并填加了数据。然后显示数组元素和它们所包含的数据。

*示例 1 
dimension marray(2)
store 'a' to marray(1)
store 'b' to marray(2)
clear
display memory like marray
dimension marray(4)
display memory like marray

*示例 2 
dimension marrayone(4)
store 'e' to marrayone(1)
store 'f' to marrayone(2)
store 'g' to marrayone(3)
store 'h' to marrayone(4)
clear
display memory like marrayone
dimension marrayone(2,3)
display memory like marrayone

*示例 3 
dimension sample(2,3)
store 'goodbye' to sample(1,2)
store 'hello' to sample(2,2)
store 99 to sample(6)
store .t. to sample(1)
clear
display memory like sample