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
[-]
oMensajes:=cCola.create;
new(nuevoMensaje);
nuevoMensaje^.mensaje:=MeMensaje.Text;
nuevoMensaje^.autor:=FrmInicio.EdUser.Text;
nuevoMensaje^.fecha:=DateTimeToStr(Today);
oMensajes.push(nuevoMensaje);
nuevoTema^.mensajes:=oMensajes;
oMensajes.destroy;
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).