Ordenar Array de Registro por campo determinado

[Bauhaus1975]

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:

Código Delphi [-]
list.Sort(@compararCampo1);

¿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.

Empezado por roman

Código Delphi [-]
begin
  form I := 0 to Lista.Count - 1 do
          Dispose(Lista[i]);
end;

Roman, en vez de lo que comentas ¿no sería mejor lo siguiente?:

Código Delphi [-]
// O bien:
lista.Clear;
// O bien:
begin
  form I := 0 to Lista.Count - 1 do
          Dispose(Lista.items[i]);
          // incluso -> lista.Delete(i);
end;

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.

[[Delphius]]

Empezado por Bauhaus1975

2. Sobre el destruir items de la lista.


Roman, en vez de lo que comentas ¿no sería mejor lo siguiente?:

Código Delphi [-]// O bien: lista.Clear; // O bien: begin form I := 0 to Lista.Count - 1 do Dispose(Lista.items[i]); // incluso -> lista.Delete(i); end;

Hola Bauhaus1975, no soy roman... mucho de lo que se vino hablando no tengo mucha idea, pero por lo que preguntas en el punto dos... creo que tengo la respuesta.

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,

[roman]

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

[Bauhaus1975]

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?:

Código Delphi [-]
// ¿Puede hacerse? Da error de variable expected
lista.Sort(@self.ordenarPorCampo);

Gracias y un saludo.