Enum (gb)
This static class is used for implementing enumerable classes.
You must use this class inside the implementation of
_next special method.
Note:
ENUM is also a
keyword used for
Enumeration declaration
Static properties
|
Index
|
Returns or sets a value that is used for referencing the next enumerated element.
|
|
Stopped
|
Return if the current enumeration has been stopped.
|
Static methods
|
Stop
|
Stops the current enumeration.
|
See also
Example
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