Ver Mensaje Individual
  #5  
Antiguo 18-06-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Si tenes que trabajar con arboles y listas que has definido vos, se hace del mismo modo al que ElKurgan te ha dicho.

En ese caso se supone que tenes declarado algo como:
Código Delphi [-]
...
type
  PLista = ^Lista;
  Lista = record
    ...
    Dato: string;
    Prev: PLista;
    Prox: PLista;
  end;

  PArbol = ^Arbol;
  Arbol = record
    ...
    Lista: PLista;
    Izq: PArbol;
    Der: PArbol;
  end;
...

Luego, para que un nodo del árbol apunte a una lista:
Código Delphi [-]
procedure ApuntarALista(Arb: PArbol; Lst: PLista);
begin
  ...
  Arb^.Lista:= Lst;  
  ...
end;
Que en definitiva es lo mismo que te sugirió ElKurgan, aplicado a árboles y listas definidas por vos.


Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 18-06-2011 a las 20:55:55.
Responder Con Cita