. : Custom StringList Sort : .

Исходник программы, показывающей пример использование функции «Пользовательская сортировка» класса TStringList. Метод Sort у TStringList по умолчанию упорядочивает строки в лексикографическом (словарном) порядке, который сортирует имена не совсем так, как ожидает пользователь. Метод CustomSort передает два указателя индекса на пользовательскую функцию и ожидает пользовательскую функцию, чтобы вернуть одно из трех значений: -1, +1 или 0, указывающее, что первая строка «меньше», «больше» или «равна» второй строке.

В данной программе сортируется набор имен файлов, содержащих числовую информацию, в последовательность с учетом числовых значений. Например, «A100A.xxx» будет стоять перед «A11.xxx» при стандартной сортировке, но более корректно, если «A100A.xxx» будет стоять после, так как 11 < 100 (числа обрабатываются как числовые значения).

В этом случае пользовательская функция разделяет каждую пару строк на 3 части: альфа-префикс, число и альфа-суффикс. Буквенные части преобразуются в верхний регистр, чтобы сделать сравнение нечувствительным к регистру.