跨平台freebasic集锦(4)-基本语法（3）-dim(3)

数组

共以下三种方式

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

Declare Sub PrintZ

Dim shared z(0 to 2) as integer
'( [lbound To] ubound [, ...] ) As DataType
z(0)=1
z(1)=2
z(2)=3

printZ


Sub PrintZ
    Dim z As Integer
    z=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  19

F:\learn\fbs>

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

Declare Sub PrintZ

Dim shared z(3 to 5) as integer
'( [lbound To] ubound [, ...] ) As DataType
z(3)=11
z(4)=2
z(5)=3

printZ


Sub PrintZ
    Dim z As Integer
    z=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  19

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

F:\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 PrintZ

Dim shared z(any)  as integer
redim z(0 to 3) as integer

z(0)=11
z(1)=22
z(2)=44
z(3)=33
printZ


Sub PrintZ
    Dim z As Integer
    z=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  19

F:\learn\fbs>

Declare Sub PrintZ

Dim array(any)  as integer
ReDim array(1 To 3) As Integer
Dim i As Integer

array(1) = 10
array(2) = 5
array(3) = 8

ReDim Preserve array(1 To 10)

For i = 1 To 10
    Print "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) =  0

F:\learn\fbs>

Declare Sub PrintZ

Dim shared z(any)  as integer
redim Shared z(0 to 3) as integer

z(0)=11
z(1)=22
z(2)=44
z(3)=33

redim Preserve z(0 to 4)
z(4)=55

printZ

Sub PrintZ
    Dim z As Integer
    z=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 PrintZ

Dim shared z()  as integer
redim Shared z(0 to 3) as integer

z(0)=11
z(1)=22
z(2)=44
z(3)=33

redim Preserve z(0 to 4)
z(4)=55

printZ

Sub PrintZ
    Dim z As Integer
    z=19  
    Print "shared z(3) is ";.z(3)
    Print "shared z(4) is ";.z(4)    
    Print "z is ";z
End Sub

二维的情况

Declare Sub PrintZ

Dim shared z()  as integer
redim Shared z(0 to 1,0 to 1) as integer

z(0,0)=11
z(0,1)=22
z(1,0)=44
z(1,1)=33

redim Preserve z(0 to 2,0 to 1)
z(2,0)=55

printZ

Sub PrintZ
    Dim z As Integer
    z=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  19

F:\learn\fbs>