Listas y punteros como los ordeno?

[delphi]

Empezado por ecfisa

Hola delphi.

Según tu gráfico la lista erronea (a reparar) esta así:

p1.ant = nil (o indeterminado)
p1.sig = 2
p1.Dato = Img1

p2.ant = 3
p2.sig = 2
p2.Dato = Img2

p3.ant = nil (o indeterminado)
p3.sig = 2
p3.Dato = Img3

p4.ant = 3
p4.sig = 1
p4.Dato = Img4

Realmente no veo manera de organizar esos nodos partiendo de sus enlaces, ya que la lista no es continua. Si quisieras recorrerla de forma ascendente no irias más allá del nodo 2 y en forma descendente, mas allá del nodo 3.
Lo que yo haría es reconstruir la lista con el mismo criterio de ordenamiento que utilizaste, supuestamente basado en los datos de los nodos.

Saludos.

es correcto ocupa nil, y en la imagen 2 pues ya todo esta correcto, mi interés es llegar a la imagen 2, y la imagen 2 es igual al código de la iamgen 3, pero no sé dónde iniciar o que debo tomar en cuenta para poder seguir la lógica de quitar el desorden de las flechas de la imagen 1, y asi sucesivamente hasta tener ordenado todo...pero tienes la idea

[ecfisa]

Hola delphi.

Espero interpretarte bien...

Si tenés el puntero al primer elemento de la lista (llamémosla Lista), para acceder al segundo nodo (imágen), solamente tenés que hacer:

Código Delphi [-]
Lista:= Lista.Sig;

Si no es una lista circular, el nodo 'p1' pareciera ser coherente, por que:
p1.ant:= nil;
p1.sig:= p2

Así que no deberías tener dificultad de acceder a P2 con la instrucción anterior.

Saludos.