Manejo de Multi-Listas (listas de listas)

[dec]

Hola,

¿No puedes ilustrar lo que dices con el código fuente que estás escribiendo? Pienso que puede ayudar a que te ayuden.

[DelphiRat]

Mi objeto ListaSimple (equivale a oMensajes) es del tipo de estructura de una 'Cola', la función push equivale a insertar_al_final. Mi objeto ListaDoble (equivale a oTemas) es una lista de doble enlace común. Mi varibale nuevoMensaje es del tipo puntero a registro (para guardarse en ListaSimple). Mi variable nuevoTema es del tipo puntero a registro (para guardarse en ListaDoble).

Código Delphi [-]
//Creo objeto ListaSimple...
oMensajes:=cCola.create;
//Inserto campos en el registro que se guardará en ListaSimple...
new(nuevoMensaje);
nuevoMensaje^.mensaje:=MeMensaje.Text;
nuevoMensaje^.autor:=FrmInicio.EdUser.Text;
nuevoMensaje^.fecha:=DateTimeToStr(Today);
//Inserto el registro en ListaSimple....
oMensajes.push(nuevoMensaje);
//Inserto ListaSimple como campo de un registro a ListaDoble...
nuevoTema^.mensajes:=oMensajes;
//Destruyo mi objeto ListaSimple...
oMensajes.destroy;
//Inserto registro (que incluye mi objeto ListaSimple) a ListaDoble...
oTemas.insertar_al_final(nuevoTema);

Mi declaración de mi registro Tema es:

Código Delphi [-]
rTema = record
  ..
  ..
  ..
  mensajes: cCola;
  end;

No hay problema con esa declaración, ¿verdad?

Bueno, ahí está lo importante de mi código. Lo que busco es la sintaxis para leer lo guardado (como se explica en el primer mensaje).

[[seoane]]

A simple vista creo que el problema esta aqui:

Código Delphi [-]
nuevoTema^.mensajes:=oMensajes;
//Destruyo mi objeto ListaSimple...
oMensajes.destroy;

Despues de destruir el objeto oMensajes, nuevoTema^.mensajes hace referencia aun objeto que ya no existe por lo que cualquier intento de acceder a el provocara un error.

[DelphiRat]

Gracias. Efectivamente, era así. Al guardar el objeto en el registro hacia que dos punteros apunten a la misma dirección. Entonces cuando destruía el objeto y, al tratar de acceder luego por el otro puntero, me botaba error ya que el puntero me llevaba a algo que ya no existía. Gracias .