自定型別

什麼是自定型別？

自定型別是你最好的朋友。它被用於建立擁有相同引數的物件的“集合”，並且快速輕鬆地進行互動。

想象一下《太空入侵者》，現在螢幕上有很多的外星人。每一個外星人都有一些需要的變數：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