\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
Dim lista As New String[]
Dim it As Iterador
\'defino lista de elementos
lista.Add("hola 1")
lista.Add("medio 2 ")
lista.Add("medio-previo 3")
lista.Add("previo fin 4")
lista.Add("fin definitivo 5")
\'Iterador hacie adelante
it = New IteradorHaciaAdelante(lista)
Print "Lista hacia adelante..."
\'escribe lista
escribeLista(it)
\'Iterador hacie adelante
Print "Lista hacia atras..."
it = New IteradorHaciaAtras(lista)
\'escribe lista
escribeLista(it)
\'Iterador hacie adelante Pares
Print "Lista posiciones pares.."
it = New IteradorPares(lista)
\'escribe lista
escribeLista(it)
\'iterador por contenido
Print "elementos de la lista que contengan la letra m"
it = New IteradorContenidoCadena(lista, "m")
\'escribe lista
escribeLista(it)
\' creando listas....
creandolista(lista)
End
Public Sub escribeLista(it As Iterador)
Print it.primero()
While it.isdone()
Print it.siguiente()
Wend
End
Public Sub creandolista(listilla As String[])
Dim listaMejorada As ListaCadenaAbstracta
Dim it As New IteradorHaciaAdelante(listilla)
listaMejorada = New ListaCadenaAbstracta(listilla)
listaMejorada.setinterador(It)
Print "Lista mejorada..."
listaMejorada.escribeLista()
Print "Primer elemento:"
listaMejorada.elementoprimero()
Print "Siguiente elemento:"
listaMejorada.elementosiguiente()
End