Código: Seleccionar todo
TYPE
ListNodo = POINTER TO Lista;
Lista = RECORD
info : CHAR;
sig : ListNodo;
END;
Iterador = POINTER TO cledaDummy;
celdaDummy = RECORD
inicio: ListNodo;
actual: ListNodo;
END;
Tengo entendido que sirve para marcar el principio y la posición actual de una lista
¿Cómo se usa? Si por ejemplo, quiero marcar la posición inicial tendría que hacer:
Código: Seleccionar todo
VAR iterr : iterador; l : ListNodo
BEGIN
RETURN iterr^.inicio := l
END
Código: Seleccionar todo
VAR iterr : iterador; l : ListNodo
BEGIN
RETURN iterr^.actual := iterr^.actual^.sig;
END
Y para devolver un dato de la lista tendría que usar:
Código: Seleccionar todo
VAR iterr : iterador; l : ListNodo
BEGIN
RETURN iterr^.actual^.info
END
Saludos