目录

• • 数组
  • • any
    • Preserve

数组

共以下三种方式

Dim name ( [lbound To] ubound [, ...] ) As DataType
Dim name ( Any [, Any...] ) As DataType
Dim name ( ) As DataType

Declare Sub PrintZDim shared z(0 to 2) as integer
'( [lbound To] ubound [, ...] ) As DataType
z(0)=1
z(1)=2
z(2)=3printZSub PrintZDim z As Integerz=19    Print "shared z(0) is ";.z(0)Print "z is ";z
End Sub

编译后运行

F:\learn\fbs>1
shared z(0) is  1
z is  19F:\learn\fbs>

数组下限可以大于1，但要按比下限小的索引访问数组，将得到随机结果

Declare Sub PrintZDim shared z(3 to 5) as integer
'( [lbound To] ubound [, ...] ) As DataType
z(3)=11
z(4)=2
z(5)=3printZSub PrintZDim z As Integerz=19  Print "shared z(0) is ";.z(0)Print "shared z(5) is ";.z(5)Print "z is ";z
End Sub

F:\learn\fbs>1
shared z(0) is  9126480
shared z(5) is  3
z is  19F:\learn\fbs>
F:\learn\fbs>1
shared z(0) is  8077904
shared z(5) is  3
z is  19F:\learn\fbs>

any

Any关键字以各种方式用作类型或值的占位符。

指针：

称为Any Ptr（或“Any pointer”）的特殊指针类型允许指向任何变量类型。如果将其转换为DataType Ptr，则可以对其进行索引或解引用，以作为DataType的实例访问内存。指针算术在Any Ptr上是允许的，并将其视为Byte Ptr：指针以1为增量进行更改。

纯Any Ptr没有编译器的类型检查。它可以通过赋值或参数传递隐式转换为其他指针类型或从其他指针类型隐式转换。

Any本身不是变量的有效数据类型。此外，取消引用Any Ptr是非法的（尽管Any Ptr-Ptr可能会被取消引用以生成Any Pter）。

这不应与Variant混淆，Variant是一种可以包含任何类型变量的Visual Basic数据类型。FreeBASIC不为Variant类型提供本机支持。

Byref参数：

可以在过程原型（在Declare语句中）中使用Any和ByRef参数，以禁用编译器检查传递的变量的正确类型（这包括数组参数，因为总是通过引用隐式传递）。

但是，它不适用于UDT成员过程，除非它们是静态过程。

Any的这种用法已被弃用，它只为与QB兼容而存在。

数组尺寸：

在数组声明中，可以指定Any来代替数组边界，以便创建具有特定维数的动态数组，该维数是根据指定的Any的数量确定的（在Type内声明动态数组成员时，必须使用Any的语法）。

在参数声明中，也可以指定Any而不是空括号，以固定维数。

初始化：

Any可以用作伪初始值设定项，以禁用变量的默认初始化为0，从而使变量未初始化。这可以节省程序关键部分的时间。在读取变量之前，程序有责任用有意义的数据填充变量。

与C/C++的比较：这与C/C++中没有初始化值的变量声明的行为相匹配。

与变量的Any初始化器类似，Any也可以与New Expression或Placement New运算符一起使用，以使新创建的对象保持未初始化状态（仅允许用于没有构造函数的数据类型）。

Instr/InstrRev:：

Any可以与Instr或InstrRev一起用作子字符串参数的限定符，以指示可以匹配其中的任何单个字符。

Declare Sub PrintZDim shared z(any)  as integer
redim z(0 to 3) as integerz(0)=11
z(1)=22
z(2)=44
z(3)=33
printZSub PrintZDim z As Integerz=19  Print "shared z(1) is ";.z(1)Print "z is ";z
End Sub

F:\learn\fbs>1
shared z(1) is  22
z is  19F:\learn\fbs>

Declare Sub PrintZDim array(any)  as integer
ReDim array(1 To 3) As Integer
Dim i As Integerarray(1) = 10
array(2) = 5
array(3) = 8ReDim Preserve array(1 To 10)For i = 1 To 10Print "array("; i; ") = "; array(i)
Next

Preserve

与Redim一起使用以保留内容将调整数组大小

与Redim一起使用，以便在调整数组大小时，数据不会被重置，而是被保留。这意味着当数组被放大时，只有新数据被重置，而旧数据保持不变（但不一定位于内存中相同的绝对地址）。

注意：Redim Preserve在所有情况下都可能无法正常工作：

Preserve的当前行为是保持原始数据在内存中的连续性，并且只扩展或截断内存的大小（如果无法调整大小，则首先将整个原始数据块移动到另一个内存位置）。

只有当上限被改变时，它的行为（具有单个维度）才被定义清楚。如果下限被更改，当前结果是数据实际上被移动到新的下限开始。

如果存在多个维度，则只有第一个维度的上限可以安全更改。如果第一维度减小，则现有的可映射数据可能会丢失。如果完全调整了低阶维度的大小，则很难预测其影响（因为多维数组按行主要顺序存储：仅在最后一个索引中不同的值是连续的）。

F:\learn\fbs>1
array( 1) =  10
array( 2) =  5
array( 3) =  8
array( 4) =  0
array( 5) =  0
array( 6) =  0
array( 7) =  0
array( 8) =  0
array( 9) =  0
array( 10) =  0F:\learn\fbs>

Declare Sub PrintZDim shared z(any)  as integer
redim Shared z(0 to 3) as integerz(0)=11
z(1)=22
z(2)=44
z(3)=33redim Preserve z(0 to 4)
z(4)=55printZSub PrintZDim z As Integerz=19  Print "shared z(3) is ";.z(3)Print "shared z(4) is ";.z(4)    Print "z is ";z
End Sub

F:\learn\fbs>1
shared z(3) is  33
shared z(4) is  55
z is  19

下面程序的运行结果和上面相同

Declare Sub PrintZDim shared z()  as integer
redim Shared z(0 to 3) as integerz(0)=11
z(1)=22
z(2)=44
z(3)=33redim Preserve z(0 to 4)
z(4)=55printZSub PrintZDim z As Integerz=19  Print "shared z(3) is ";.z(3)Print "shared z(4) is ";.z(4)    Print "z is ";z
End Sub

二维的情况

Declare Sub PrintZDim shared z()  as integer
redim Shared z(0 to 1,0 to 1) as integerz(0,0)=11
z(0,1)=22
z(1,0)=44
z(1,1)=33redim Preserve z(0 to 2,0 to 1)
z(2,0)=55printZSub PrintZDim z As Integerz=19  Print "shared z(1,0) is ";.z(1,0)Print "shared z(2,0) is ";.z(2,0)    Print "z is ";z
End Sub

F:\learn\fbs>1
shared z(1,0) is  44
shared z(2,0) is  55
z is  19F:\learn\fbs>