Enum (gb)

Questa classe statica è utilizzata per l'implementazione di classi enumerabili.

Va usato all'interno dell'implementazione del metodo speciale _next.

Questa classe è statica.

Questa classe è enumerabile staticamente con la parola chiave FOR EACH.

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