Para entender esto, pimero hay que ver la declaración del método CustomSort:
Código Delphi
[-]
procedure CustomSort(Compare: TStringListSortCompare);
El parámetro es de tipo TStringListSortCompare, que está declarado así:
Código Delphi
[-]
type
TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;
Es decir,
el parámetro que se pasa a CustomSort es una función. Esto hay que leerlo bien antes de digerirlo. No se le pasa el valor que devuelve la función (que sería un entero), se le pasa
toda la función como parámetro.
Si bien esto puede sonar raro, quizá se te aclare si meditas en para qué se necesita tal cosa.
El origen del problema en este hilo, es que el orden natural de los elementos de un ListBox es textual, no numérico; son dos tipos distintos de ordenamiento:
1, 2, 3, 4, 5, 6 , 7, 8, 9, 10 (numérico)
1, 10, 2, 3, 4, 5, 6, 7, 8, 9 (textual)
En un orden numérico, 2 es menor que 10, pero en un orden textual, 10 es menor que 2 (puesto que al comparar el primer caracter, 1 es menor que 2).
Lo que se ve entonces, es que una lista de elementos siempre será susceptible de ordenarse según diferentes criterios. Un algoritmo de ordenación (tal como QuickSort) puede trabajar con cualquier tipo de elementos (números, cadenas, objetos, etc.) pues lo único que requieren para funcionar es saber cuando
un elemento es menor que otro, es decir, sólo necesitan saber cómo comparar dos elementos.
Esto es lo que sucede con CustomSort. A este método, le pasamos una función que compara dos elementos. Internamente, CustomSort tendrá que llevar a cabo muchas comparaciones dos a dos, y tal comparación la hará utilizando la función que le pasamos.
Espero que te haya aclarado algo.
// Saludos
26-09-2008
Temas Similares
Modo Híbrido
