Como hacer una lista enlazada dinamica en delphi

[[coso]]

Hola, seria algo asi como

 
typedef struct Nodo {
            variant (?) elemento;
            Nodo *conexion; };

no recuerdo bien bien la sintaxis de C, algo de este estilo seria...Todo y eso, las listas dinamicas para que sean correctas tienen conexión con el anterior y con el siguiente...

 
typedef struct Nodo { 
             Nodo *anterior,*siguiente;
             variant (?) elemento };

igualmente, como te dice Neftali, en C++ y ya en OOP en general, este tipo de estructuras ya estan implementadas (el mismo TObjectList...) saludos.

[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,

[[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...)