Enum (gb)
该静态类被用于实现可枚举的类。
必须在
_next 特别方法的实现内部使用它。
注意:
ENUM 同时也是一个
keyword 用于
枚举声明
静态属性
静态方法
参见
示例
From Gambas source code:
'' Return recursively all the options available (line 307)
Public Function _next() As String
Dim s As String
If Not $aOptionsNames Then GetOptions
If IsNull(Enum.Index) Then
Enum.Index = 0
Else
Inc Enum.Index
Endif
If Enum.Index >= $aOptions.Count Then
Enum.Stop
Return
Endif
s = $aOptionsNames[Enum.Index]
Return s
End