自定类型

什么是自定类型？

自定类型是你最好的朋友。它被用于创建拥有相同参数的对象的“集合”，并且快速轻松地进行交互。

想象一下《太空入侵者》，现在屏幕上有很多的外星人。每一个外星人都有一些需要的变量：x、y 和一个控制画面显示的变量（腿向外或向内）。

现在，我们可以创建数百个变量，例如 invader1x、invader1y、invader2x、invader2y 来控制所有的外星人。但是这没多大意义，不是吗？你可以用数组来储存它们，并且使用 For ... Next 循环，但是这太麻烦了！

“自定类型变量集合”就是用来解决这种问题的。

Type 能够定义一个对象集合。每个对象都会获得类型中 Field 定义的变量的副本。集合中每个对象的每个变量都可以单独读取，并且可以快速迭代。使用 Field 命令在 Type 和 End Type 中间定义所需的变量。

如果有帮助的话，您可以将类型集合想象成一个数据库。每个对象都是数据库的记录，每个变量都是记录中的字段。使用 Before、After 和 For ... Each 命令，您可以移动“数据库”的指针来指向不同的记录，以检索并设置变量的字段值。

不是数据库专家？还需要举个例子？没问题。想象你正在为一场演讲或一次活动搭建场景，你将要为观众摆数百把椅子。

椅子必须要放在地板上的某个地方，而有些椅子会比其他椅子高一点（比如老板和市长的椅子）。所以，作为电脑天才，你正在想办法最快最好地来布置椅子。

你意识到地板是方格的，地板完全是一个巨大的网格！弄这事更简单了！你只需要在一张图纸上对地板进行编号，并根据老板告诉你的重要人物的座位，将每张椅子的高度写到网格表上。

所以，每把椅子有会有一个 x 和 y，并会有一个水平高度来表示椅子的高度（height）。很好，我们逻辑很清晰。现在，尽管我们把这些东西都写在图纸上了，我们仍旧需要自己去放椅子。

当你完成之后，你的老板走到你面前说：“它们没有居中，把它们向右平移一米。”我操！本来这些东西都很完美。尽管椅子右移一米这事不难（毕竟它们的高度和顺序不会改变），但是你仍旧要一把一把挪这些椅子！

如果你能挥挥手说：“房间里的椅子的 x 都增加一个方格”，然后它们奇迹的挪过去了，那就太棒了。但是现实是——这些椅子都要你自己搬！

在 Blitz 中，你可以设置一个叫做 Chair 的类型，然后将类型的字段（Field）设置为 x、y 和 height。您可以使用 New 命令来创建所需数量的椅子（每次调用 New 时，它都会生成一把带有属于自己的 x、y 和 height 的新的椅子），并为他们分配由您决定的 x、y 和 height。

在上面的例子中，当老板让你把椅子挪动一格的时候，你可能会叫苦连天——这活可不少！但是在 Blitz 中，我们可以用四行代码让所有的 Chair 对象调整到新位置（利用 For ... Each 命令）。

定义自定类型

使用 Type 关键字定义自定类型，例如：

Type MyType 
    Field x, y 
End Type

这将创建一个名为 MyType 的自定类型，其中包括两个字段：x 和 y。

自定类型的字段可以是任意基本数据类型，也可以是任意自定类型。类型标签可以用于确定字段的类型，例如：

Type MyType 
    Field x, y               ; 整数值
    Field description$       ; 字符串 
    Field delta_x#, delta_y# ; 浮点值
End Type 

创建自定类型实例

您可以在创建变量或数组的名称之后用 “.+类型名称”的方式创建自定类型的变量或数组。例如：

Global mine.MyType
Dim all_mine.MyType(100)

在使用自定类型变量或数组元素之前，必须使用 New 运算符对其进行初始化。例如：

mine.MyType = New MyType

New 运算符将创建一个类型为 MyType 的“对象”，并返回创建的对象的“指针”。New 运算符后面的标识符必须是有效的自定类型名称。

自定类型中的字段可以通过“\”字符访问。例如：

mine\x=100
Print mine\x

销毁自定类型实例

当您不再需要一个对象的时候，您应该使用 Delete 命令将其删除。例如：

Delete mine

这将释放对象所使用的内存。

检测是否存在

特殊关键字 Null 被用于表示不存在的对象。如果对象尚未用 New 进行初始化，或者已被 Delete 进行删除，则该对象不存在。例如：

mine.MyType = New MyType 
If mine <> Null 
     Print "exists!" ; 存在！
Else 
     Print "doesn't exist!" ; 不存在！
EndIf 
Delete mine 
If mine <> Null 
     Print "exists!" ; 存在！
Else 
     Print "doesn't exist!" ; 不存在！
EndIf 

...就会打印：

exists! 
doesn't exist!

每个自定类型都有一个属于自己的对象列表，称为“类型列表”。使用 New 创建对象时，创建的对象将自动添加到类型列表中。使用 Delete 释放对象时，对象将从列表中移除。类型列表是动态的——一旦实例被销毁，它在集合中就会被删除，其他的对象就会在集合中“上移”。

类型列表迭代

First、Last、After 和 Before 运算符允许您访问类型列表。First 运算符会返回类型列表开头的对象。例如：

mine.MyType = First MyType

这将为 mine.MyType 赋值自定类型 MyType 的类型列表中的第一个对象。

同理，Last 会返回列表末尾的对象。

如果类型列表为空，则 First 和 Last 将会返回 Null。

您可以使用 After 查找一个对象之后的对象，使用 Before 查找一个对象之前的对象。例如：

mine.MyType = First MyType ; mine=类型列表的第一个对象
mine = After(mine) ; mine=第二个对象
mine = After(mine) ; mine=第三个对象
mine = Before(mine) ; mine=第二个对象
mine = Before(mine) ; mine=又是第一个！

如果类型列表中找不到对象，After 和 Before 将返回 Null。例如：

mine.MyType = Last MyType ; mine=最后一个对象
mine = After(mine) ; 最后一个后面没有对象！

使用 New 创建对象时，默认情况下，该对象将会放置在其类型列表的末尾。然而，您可以使用 Insert 来在类型列表中移动对象。

mine1.MyType = New MyType
mine2.MyType = New MyType 
Insert mine2 Before mine1

这将会把 mine2 对象插入 mine1 之前。您也可以使用 After 在其之后插入，而不是用 Before。

以下是将对象移动到类型列表开头的示例：

Insert mine Before First MyType

一种特殊形式的 For ... Next 允许您轻松遍历列表中的所有对象。例如：

For mine.MyType = Each MyType 
    ...
Next

这会让变量 mine.MyType 循环赋值为 MyType 列表中的所有对象。

最后，Delete Each 命令允许您删除特定类型列表中的所有对象。例如：

Delete Each MyType