FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ordenar Array de Registro por campo determinado
Hola, se me plantea una vez más esta duda y ya me gustaría hacerme con la función que lo implemente. Este tema se ha tratado alguna vez según he podido ver, pero no he visto que se haya dado un ejemplo o algo conciso que pueda usar.
Se trata de ordenar el array 'lista' por cualquiera de sus campos, según se quiera:
Aquí en el foro se planteo este mismo tema -Y en esta web- he visto que plantean el tema usando un TList de punteros, pero ¿tengo que implementar un método 'Sort' de todas maneras? ¿Alguien tiene algún ejemplo válido para el caso? Me han comentado que se podria usar algún componente no nativo como un 'JvMemoryDataset' de las Jedi, pero tengo el código muy dependiente a estas alturas de usar los tipos como he presentado (sin duda por mi falta de experiencia). Gracias y un saludo. |
#2
|
||||
|
||||
Si puedes usar un TList en lugar de un array te facilitarás la tarea. En un TList se guardan punteros, lo que significa que puedes guardar prácticamente cualquier cosa, en este caso, punteros a registros.
Tú no tienes que implementar el método Sort sino únicamente proveer a éste de una función de comparación:
Esta función debe devolver 1 si Item1 es menor que Item2, 0 si son iguales y -1 si Item1 es mayor que Item2. Entonces, en tu función tú simplemente tienes que examinar los registros que te pasan y comparar los campos que correponda. // Saludos |
#3
|
|||
|
|||
Hola Roman, gracias por tu respuesta.
Por cierto, he visto que había un post igual al mío después de publicar. Y tú mismo lo habías respondido, pero se detalla usar TObjectList (no sé si me trae algún beneficio). Bueno, voy al grano. Tengo algunas dudas todavía, sin duda es falta de práctica con el lenguaje. De momento intento hacer esto:
¿Voy bien encaminado? Ahora bien, para acceder a los datos tengo problemas con el 'Cast' de tipos, trato de hacer:
y no consigo evitar el error... |
#4
|
||||
|
||||
Tendrías que completar tus tipos de datos con un apuntador al registro:
Entonces, manejarías los elementos del TList así:
// Saludos |
#5
|
|||
|
|||
Hola de nuevo.
Entonces usando un puntero al registro. hmmm..., ¿quizá sea mejor usar un TObjectList? y definir una clase que englobe al registro, lo digo por lo de ¿mejor usar objetos (nombres) que punteros? Sí, ya sé que me pueden decir que mejor haber usado una clase para el tipo registro, pero resulta (lo típico) que el código ya está afectado de usar estos tipos. Un saludo y gracias de nuevo. |
#6
|
||||
|
||||
Cita:
Corregidme si me equivoco. Un saludo.
__________________
"La recompensa de una buena acción está en haberla hecho" |
#7
|
||||
|
||||
Es muy buena tu observación DarkMan. Habia puesto esa declaración ahí más que nada por fines informativos, para dejar claro el tipo de datos de Item. Pero lo cierto es que ni aun siendo una variable global tendría mucho sentido, pues no es cuestión de tener una variable por cada elemento de la lista.
Lo adecuado es crear dinámicamente los elementos que se insertan:
Claro que, antes de destruir la lista, hay que recorrer sus elementos para liberar la memoria:
// Saludos |
#8
|
|||
|
|||
Hola de nuevo y gracias a los dos por la ayuda.
Estoy ya implementando vuestros consejos, aunque como el código estaba muy extendido ya, me queda todavía, y no se aún si funciona. Me estoy planteando tener una función/ o método 'ordenar', que trate de manera aislada el TList para ordenar y luego devuelva una copia del TList pero pasado a 'array or record' que es lo que usa el resto de partes del programa. Además, todavía me quedan algunas dudas... 1. Sobre la llamada a ordenar: ¿Puedo pasar en vez de una función, un método de clase? Also como '@self.compararCampo1'. Para no tener funciones sueltas. He probado pero no he conseguido salvar el error 'variable expected'. 2. Sobre el destruir items de la lista. Cita:
También tengo otro problema, y es que tengo que almacenar cada Tlist que proceso en un array (array of TList). Resulta que cada vez que voy a procesar un nuevo TList, lo libero (reseteo), y pierdo lo que tenia almacenado en el array de TList de anteriores posiciones. Pero para no mezclar, esto lo trataré en un nuevo Post si es necesario. Saludos. Última edición por Bauhaus1975 fecha: 28-02-2009 a las 19:33:36. |
#9
|
||||
|
||||
Cita:
Si no me equivoco es indiferente. Tengo entendido que Items es la propiedad vectorial por defecto que tiene TList. Por ello es que es lo mismo: Lista[] que Lista.Items[]. Saludos, |
#10
|
||||
|
||||
A ver, no nos confundamos. El método Lista.Delete borra un elemento de la lista, pero cada elemento es un puntero y Delete no libera la memoria a la que apunta el item, es decir, el registro creado con New. Por eso es necesario Dispose.
Igualmente, el método Lista.Clear únicamente borra cada item, pero sin liberar la memoria a la que apunta cada uno. Por eso escribí: antes de destruir la lista. Es decir, tienes que hacer el Dispose de cada elemento, y posteriormente llamar a Lista.Free para borrar la lista y todos sus elementos. En resumen: una cosa es el puntero y otra cosa es el bloque al que apunta el puntero. // Saludos |
#11
|
|||
|
|||
Hola de nuevo.
Ey Delphius, gracias por el apunte. Entendido, la liberación de memoria de cada elemento de la lista hay que programarla. Y sobre pasar un método de clase ¿puede hacerse?:
Gracias y un saludo. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ordenar un array | Aldaya | Varios | 2 | 27-11-2007 09:45:00 |
Ordenar array ???? | burasu | Varios | 6 | 15-02-2007 20:39:16 |
Encontrar un registro determinado. | alfredosg19 | Conexión con bases de datos | 3 | 20-06-2005 21:09:49 |
Borrar un dato determinado de un Array. | alfredosg19 | Varios | 5 | 24-03-2005 10:05:17 |
Ordenar un array de records | Feñiz | OOP | 7 | 04-02-2005 08:19:28 |
|