Como hacer una lista enlazada dinamica en delphi
Hola queridos amigos foristas necesito sugerencias y opiniones de como poder implementar una lista dinamica en delphi que sea dinamica y generica, de acuerdo a lo siguiente:
Mi estructura Nodo seria: *Que tenga un variable Elemento, este elemento debe ser generico, es decir puede tomar cualquier tipo de dato,objeto,variable;(perece ser que en C++ esto se logra con template). *Bueno(es logico) el otro elemento es un link o enlace de tipo Nodo. De esa forma lograria tener un lista dinamica generica.:eek: Cualquier ayudita o sugerencia es bien recibida. Muchas gracias de antemano.:) |
Cita:
Supongo que para lo primero puedes crear un Pointer, similar a como tienen los ObjectList; Con ese apuntador podrás almacenar/apuntar a lo que quieras. Y tal vez otro apuntador para el siguiente nodo. Insisto, antes de seguir revisa TList, TObjectList,... |
Hola, seria algo asi como
Código:
Código:
|
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...¡¡¡:confused:¡¡¡¡¡ |
ah en delphi seria algo como
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. |
Cita:
|
hablando en plata:
Saludos |
bueno, corrigiendo a Lepe...
saludos. |
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:
// Saludos |
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:
pues mejor haces:
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, |
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, |
Al principio pensé lo mismo, Delphius, pero entonces, ¿para qué la genericidad? Para aprender y realizar el típico ejercicio de listas, no hace falta irse por las ramas, se hace una lista de enteros y ya estuvo.
Por cierto, me parece que Tiburón ya traerá los famosos templates estilo C++ ¿no? Y, de hecho, creo que FreePascal ya los tiene. // Saludos |
Cita:
Sí, tenéis razón, fué un tecleado rápido (sin pensar mucho...) :o |
no no, es una correcion :D...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 ;)
|
Cita:
o bien de un record...
que creo que es lo q comenta roman. Lo que vengo a decir es que si bien las listas dinamicas genericas se creaban de esa manera, indicando el puntero al nodo siguiente y al anterior, ahora es una tipo de estructura mas que desfasada (o ya implementada en el propio lenguaje). Saludos y a ver si te sirve la información ;) |
Gracias por los comentarios amigos, quisiera aclarar unos puntos:
Cita:
Yo creo que estas estructuras de datos son parte escencial en la vida de un programador, y quien no las conosca estaria omitiendo un gran conocimiento de la Programacion. A veces me topado con Docentes en la Universidad (U) que te piden hacer algo pero sin utilizar lo que ya esta echo.¿Entonces que te queda?:confused: pues hacerlo y pienso que es bueno en cierta manera por que aprendes muchos a pesar de que a veces tu trabajo se vuelve tedioso. Cita:
Cita:
Lo que dices tu Roman para que hacerlo generica , pues te puedo decir si tuvieras un lista generica la podrias usar en cualquier circunstancias que la necesites y con cualquier tipo de objeto es decir Una sola implementacion y te sirve de mucho, por eso quiero saber sobre los templates en Delphi. Buenos esas mis aclaraciones y dudas que tenia, agradesco sus opiniones queridos amigos:) |
Hola...
A que te refieres con que Delphi es pura referencia? :confused: Ahora, como ya te han mencionado, Delphi cuenta con algunas clases que resuelven lo que necesitas. Checa la unidad Contnrs, ahí vienen implementadas las estructuras de pilas, colas, listas ordenadas, etc... Ya con esas clases básicas puedes heredar para hacer lo que desees... Ahora te pongo un ejemplo de como hacer una lista con estructuras record:
Saludos... |
Cita:
|
Hola...
Cita:
¿O será que te entendí mal? :p Saludos... |
Cita:
Ahora, ¿que quieres hacer listas de datos simples como enteros, caracteres o strings (1)? Pues basta que los "envuelvas" en un registro o una clase
y ya puedes hacer tu lista de Strings. // Saludos (1) Estrictamente hablando, String no es un tipo simple, y si lo "envuelves en un record habrá que tener cuidado con la liberación de la memoria que usa. |
Cita:
// Saludos |
Hola...
Cita:
Saludos... |
Hola...
Cita:
A lo mejor coso se refería a lo que tú comentas... Saludos... |
Cita:
En cuanto a ti Roman esta bueno lo dices lo voy a probar, gracias por tu sugerencias aunque quisiera implementarlo personalmente pero aun me queda una duda ¿Existen templates en delphi si o no:confused:? |
Cita:
Ejemplo:
La última linea tiene miga: - Al crear el TobjectList le pasamos en el parámetro un True, eso le indica que cuando liberemos la lista, libere tambien los objetos que tiene dentro. - Pero, si tiene dentro un Timage y el otro es un panel, ¿cómo sabe delphi liberarlos? cada uno hace una cosa distinta al liberarse, por ejemplo: - el Timage debe liberar la imagen que tenga en su propiedad Picture - el Tpanel debe liberar los controles que tenga dentro (si tiene alguno) Esa es la magia del polimorfismo: Tanto el Timage como el TPanel heredan de TObject, así que cuando ejecutas l.items[0].free no se ejecuta el método Free del TObject, en realidad se ejecuta el método Free del Timage o del TPanel, según sea el caso. rgstuamigo, como ves esa "lista genérica que quieres hacer" está ya hecha, aunque debes comprender los conceptos para poder usarla con toda su potencia. Aún quieres usar records, punteros o lo que quieras, adelante, no seré yo el que te ate las manos ;). Saludos |
¿a qué le llamas tú templates?
|
Cita:
Saludos... |
uhhhhh:rolleyes: Bueno los que hemos trabajado en java o en algun otro lenguaje que los tenga ;un template=plantilla que ayuda a trabajar sobre todo para evitar los casting a cada rato, por decir en el ejemplo de Lepe tiene que hacer una especie de casting para acceder al objeto TImage y al objeto TPanel,y cada vez tendria que hacer lo mismo si quieres acceder a dichos objetos, en cambio con template(Al menos en java)tu creas la lista y le dices por medio de plantillas "Voy a tener una lista digamos de TPanel" (al momento de crearla)entonces la lista esperará solo objetos TPanel y nada mas,y cuando saque de lista me devolvera objetos TPanel,sin necesidad de hacer casting a cada rato; no se si me explico, bueno al menos esto es posible en Java por eso preguntaba si exite en Delphi.:confused:
|
Cita:
|
Cita:
Exactamente! me llegan los mensajes a destiempo :D |
Efectivamente no lo hay, pero siempre puedes heredar de TObjectList y sobreescribir las funciones principales para que solo permitan el Tipo que quieras (tardarás 1 minuto cuando sepas hacerlo).
Mediante Gexperts o CnPacks, podrías guardar ese código "maestro" y cuando deseas utilizarlo sólo has de pegarlo y usar "Buscar y reemplazar" Tpanel por TImage. Listo ahora tu lista en lugar de aceptar TPanel, ahora acepta TImage. Saludos. |
Hola...
Cita:
Con esto puedes tener una lista de TPanel sin hacer casting a cada rato... Saludos... |
Esta muy bueno tu codigo Maeyanes gracias por compartir tus conocimientos.
Saco mis conclusiones haciendo una comparacion entre Delphi y Java: En Delphi para poder hacerlo tengo que crearme una nueva clase heredada de TObjectList y volver a escribir los metodos; *Significa que cada vez que quiero que mi lista de objeto(TObjectList) sea de algun tipo, necesariamente (para evitar los casting)debo crearme una nueva clase heredada de TObjectList, digamos que si quiero una lista de numeros tengo que hacerme una nueva clase de numero,si quiero de TButton me hago de una nueva clase, y asi sucesivamente.Esto como he dicho solo para evitar hacer casting a cada rato. *En java solo pongo en plantilla el tipo de dato que va ser y listo, no nesito estar creandome nuevas clases y reescribiendo metodos. ES EXATAMENTE lo que hemos estado hablando durante todo el hilo. Seria bueno que Delphi en las proximas versiones tuviera los famosos TEMPLATE Seria de mucha ayuda para los programadores que nos gusta este IDE's. MUCHISIMAS GRACIAS AMIGOS por compartir sus experiencias y sugerencias.;):D |
Cita:
Esto permitiría que (en delphi 5, 6, 7) con 1 clic de ratón y especificar "TPanel", se creara automáticamente la clase de maeyanes. Los BDS tienen muchas virguerías, por ejemplo añadir un patrón Singleton, etc, pero todo se basa en lo mismo: métodos de rápida implementación para el programador, en realidad, las clases hay que crearlas. Ten presente que Java es un lenguaje interpretado, Delphi es compilado. Delphi es un lenguaje altamente tipificado, mientras que java..... no lo sé, pero imagino que no. No quiero entrar en polémicas de cual es peor o mejor, simplemente quiero que se tengan en cuenta para no pedirles peras al olmo. Saludos |
No tiene nada que ver si el lenguaje es interpretado,o compilado amigo Lepe,
chekea este link y este otro y veras unos ejemplos de Template en C++, sabiendo que c++ puede ser compilado tambien.Lo de java solo lo ponia por ejemplo. Lo menos que quiero es hacer una polemica que Java es mejor o Delphi o C++ o Python, o Ruby, etc. Eso seria para el foro de Debate.:D Eso es lo interesante de hacerlo con Template puedes verlo ahi. Saludos......;) |
Por eso quise que me explicaras a qué le llamabas "Templates".
En delphi usamos el code Template, si te fijas en esa URL, la ventana que pone con ejemplos se llama "Templates", pero obviamente, no tiene nada que ver con lo que quieres. Otra cosa, que quizás te sirve, es trabajar con referencias de clases, es decir, haces una clase general, que admita operar con el tipo de clase que le definas en tiempo de ejecución:
Y hasta aquí, llego :D Saludos |
Hola...
Cita:
Ahora, los que estamos acostumbrados a trabajar en Delphi (Pascal, Object Pascal), no nos afecta el que existan o no. Que serían una gran ayuda, es cierto, pero hemos vivido mucho tiempo sin ellos y siempre hemos podido con el trabajo... :D Ahora, parece que Delphi 2009 si soporta Genéricos: http://barrkel.blogspot.com/2008/08/...anonymous.html Saludos... |
Cita:
// Saludos |
Hola...
Cita:
Saludos... :) |
Solo para complementar un poco el tema ya que me tope con la misma situacion, les dejo aca un link a un video donde dan una introduccion al tema.
Link Video Saludos |
La franja horaria es GMT +2. Ahora son las 09:30:26. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi