IteradorPares

' Gambas class file

Inherits Iterador

Private posicion As Integer = 0

Public Function currenItem() As Variant

  Return Super.getlista()[posicion]

End

Public Function primero() As Variant

  posicion = 1
  Return currenItem()

End

Public Function siguiente() As Variant

  posicion += 2
  If isdone() Then
    Return currenItem()
    ' Else
    ' posicion = 0 'vuelvo a empezar...
    ' Return currenItem()
  Endif

End

Public Function isdone() As Boolean
  'hay siguiente?

  If posicion < Super.getlista().count Then
    'si, hay siguiente
    Return True
  Else
    'no, ya se ha acabado la lista...
    Return False
  Endif

End