Как заменить StringList.Sort на стабильную сортировку в Delphi?

Delphi , Базы данных , Сортировка и Фильтр

Статья:

При работе с StringList в Delphi используется быстрая сортировка (QuickSort), которая не является стабильной. Это означает, что она может менять относительный порядок записей с равными ключами. Если вам нужна стабильная сортировка, то в данной статье мы рассмотрим, как легко реализовать это в Delphi.

Что такое стабильная сортировка?

Стабильная сортировка сохраняет относительный порядок элементов с одинаковыми ключами. Например, если у вас есть список ['apple', 'banana', 'apple'], после сортировки по алфавиту он должен остаться таким же: ['apple', 'banana', 'apple'], а не ['banana', 'apple', 'apple'].

Как реализовать стабильную сортировку в Delphi?

В Delphi для замены стандартной сортировки на стабильную можно использовать метод CustomSort класса TStringList. Этот метод позволяет вам написать свою собственную функцию сравнения, которая будет использоваться вместо стандартной быстрой сортировки.

Ниже приведен пример кода, демонстрирующий, как это можно сделать:

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  i: Integer;
begin
  SL := TStringList.Create;
  try
    SL.Add('apple');
    SL.Add('banana');
    SL.Add('apple');
    SL.CustomSort(TStringList.SortCompare(TStringList.SortOrder.aoAscending, TStringList.SortOptions.soNone, function(const A, B: string): Integer
      begin
        Result := CompareText(A, B);
        if Result = 0 then
          Result := CompareText(StrPos(SL, A), StrPos(SL, B));
      end));
    for i := 0 to SL.Count - 1 do
      Memo1.Lines.Add(SL[i]);
  finally
    SL.Free;
  end;
end;

В данном примере мы создаем новый экземпляр TStringList, добавляем в него несколько строк и вызываем метод CustomSort с анонимной функцией сравнения. В этой функции мы сначала сравниваем строки с помощью стандартной функции сравнения CompareText. Если строки равны, мы сравниваем их индексы в списке, чтобы сохранить относительный порядок.

После сортировки мы выводим отсортированный список в Memo1.

Вывод

Заменить StringList.Sort на стабильную сортировку в Delphi можно с помощью метода CustomSort класса TStringList. Это позволяет вам написать свою собственную функцию сравнения, которая сохранит относительный порядок элементов с одинаковыми ключами. Приведенный выше пример демонстрирует, как это можно сделать в несколько строк кода.

Создано по материалам из источника по ссылке.

В данной статье объясняется, как заменить быструю сортировку (QuickSort) в Delphi на стабильную сортировку при работе с StringList, используя метод CustomSort и свою собственную функцию сравнения.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сортировка и Фильтр ::