Delphi. Как отсортировать TStringList и сохранить соответствие с несколькими другими TStringList?

Данный пост является развитием предыдущего. Будем сортировать один TStringList -другие же приводить в соответствие с переставленными элементами.

Исходные данные у меня точно такие же. Не буду переписывать часть поста сюда.Изменился только алгоритм сортировки, так как теперь в соответствие нужно привести не один, а несколько списков.

Компараторы

Сам алгоритм сортировки и переставления данных (в данном случае, после сортировки, следим за изменением порядка адресов данных)

Пример использования

До сортировки

54

После сортировки

55

 

Также, этот алгоритм решил проблему с одинаковыми данными. Теперь, благодаря тому, что мы отслеживаем не сами значения а адреса памяти данных, мы избавились от зависимости от самих данных. Вот пример…

До сортировки

58

После сортировки

60

This entry was posted in Delphi, Алгоритмы. Bookmark the permalink.

Leave a Reply