Como hacer una lista enlazada dinamica en delphi

[rgstuamigo]

Gracias por sus respuestas amigos.
La idea de implementar una lista enlazada dinamica generica es que a veces necesito esta estructura de datos para utilizar en cualquier aplicacion que necesite, estoy tratando de entender Las clases ya implementadas TList,TObjectList; la primera es generica pero guardas solo punteros de objetos;la segunda guarda Objeto,pero cuando le mando que adicione por decir un Record creado por mi, me sale que es incompatiple los datos; que yo sepa, en programcion solo se puede hacer casting de una clase padre hacia una clase hija, o de hija a hija,y nunca de hija a padre,(Bueno eso es en java) por tanto: ¿Cómo hago un casting de un record a un TObject?.
En cuanto a lo que dice coso, yo he implementado algo parecido en c++Builder y en Java,pero pense que en delphi seria mas facil; lo que tenia duda es como se hace en Delphi.
Tengo una duda;lei por ahi que delphi en pura referencia,entonces me pregunte si es pura referencia es identico a hacerlo en java, pero queria comprobar si esto era verdad.
No se si alguien me puede aclarar el asunto...¡¡¡¡¡¡¡¡

[[coso]]

ah en delphi seria algo como

Código Delphi [-]
type
     nodo = class
     valor : variant;
     anterior, posterior : nodo;
end;

ya te digo q este tipo de estructura esta muy manido. Seguro q si miras bien los objetos TList o TObjectList, encuentras una solución ya hecha. Saludos.

[[coso]]

¿Cómo hago un casting de un record a un TObject?.

en vez de usar un record, puedes crear una clase descendiente de TObject.

[[Lepe]]

hablando en plata:

Código Delphi [-]
type MiObjeto = class(TObject)  // ya está, ya tienes un objeto con esta linea
  public
     valor : variant;
     anterior, posterior : TObject;
end;

Saludos

[[coso]]

bueno, corrigiendo a Lepe...

Código Delphi [-]
type MiObjeto = class(TObject)  // ya está, ya tienes un objeto con esta linea  
  public     
      valor : variant;     
      anterior, posterior : MiObjeto;
end;

saludos.

[roman]

Y ¿para qué quiere hacer un casting de un record a un TObject, si con un Pointer puede hacer referencia a uno y otro? Yo creo que un TList es más que suficiente para casi todo.

Por otro lado, usar un Variant puede ser útil para tipos simples, pero para tipos estructurados no es posible usarlos directamente, y hay que hacer demasiado moldeo:

Código Delphi [-]
V := Integer(UnObjeto);

...

TUnbjeto(Integer(V)).UnMetodo();

// Saludos

[[gatosoft]]

Román tiene razón, Además un Tlist o un TObjectList fueron diseñados con el propòsito de simplificar el manejo de listas enlzadas...

además, amigo "rgstuamigo", si te empeñas en hacer una lista enlazada "a la antigua" tendrás que implementar toda su funcionalidad a mano,... ya sabes: Insertar, eliminar, ir hacia adelante, ir hacia a atras... etc, etc... ¿Por que no intentar con los objetos que te proponen? tienen muchas ventajas y muy probablemente sean menos dolores de cabeza...

Por otro lado si de todas formas utilizas un objeto del tipo:

Código Delphi [-]
type MiObjeto = class(TObject)  
  public     
      valor : variant;     
      anterior, posterior : MiObjeto;
end;

pues mejor haces:

Código Delphi [-]
type MiObjeto = class(TObject)  
  public     
      valor : variant;     
end;

y dejas el trabajo de anterior y posterior al TObjectList....


Como comentario adicional... no se que peinsen uds. pero creo que con la POO, el uso de Records es menos eficiente... es decir, si saca de apuros y para proyectos rápidos es funcional, pero por principio, si un grupo de variables se puede agrupar es muy probable que sea candidato a objeto...



Saludos,

[[Delphius]]

Opino igual que ustedes: si las clases están usemoslas. Pero, he aquí que tal vez no conocemos en profundidad que es lo que se busca.
Quizás rgstuamigo es un estudiante y recién está viendo sobre los tipos abstractos de datos y a modo de tarea le pidieron que implementace una lista doble encadenada.
Es un ejercicio bastante común, al menos cuando fuí estudiante se nos los pedía. En caso de que se trate de esto... tal vez sería más productivo para él que nuestra ayuda se focalize en asistirlo en como llevar a cabo la implementación de los procedimientos y funciones necesarios.

Saludos,

[[Lepe]]

Empezado por coso

bueno, corrigiendo a Lepe...

No es una corrección, es una mejora

Sí, tenéis razón, fué un tecleado rápido (sin pensar mucho...)

[[coso]]

no no, es una correcion ...el nodo anterior y el siguiente (al menos, tengo entendido) tienen q ser del mismo tipo, para crear la 'cadena', aunque seguro q hay variedades con la clase inicial. Saludos