Enum (gb)
Questa classe statica è utilizzata per l'implementazione di classi enumerabili.
Va usato all'interno dell'implementazione del metodo speciale
_next
.
Proprietà statiche
Index
|
Restituisce o imposta un valore che viene utilizzato per fare riferimento all'elemento successivo enumerato.
|
Stopped
|
Restituisce se l'enumerazione corrente è stata interrotta.
|
Metodi statici
Stop
|
Arresta l'enumerazione corrente.
|
Vedi anche
Esempio
Dal codice sorgente di Gambas:
'' Ritorna in modo ricorsivo tutte le opzioni disponibili (riga 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