Сортировка TStringList в Delphi с сохранением оригинальных индексов

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

При работе с TStringList в Delphi может возникнуть необходимость отсортировать список строк, сохранив при этом оригинальные индексы элементов. В этой статье мы рассмотрим, как это можно сделать.

Понимание проблемы

TStringList является динамическим массивом строк, который позволяет добавлять, удалять и сортировать элементы. При сортировке по умолчанию TStringList использует алгоритм быстрой сортировки, который не сохраняет оригинальные индексы элементов. Это может стать проблемой, если вам нужно сохранить порядок элементов, основанный на их исходных индексах.

Решение проблемы

Чтобы сохранить оригинальные индексы элементов при сортировке TStringList, можно использовать дополнительный массив, который будет хранить индексы элементов в их оригинальном порядке. При сортировке TStringList мы также будем сортировать этот дополнительный массив, используя тот же критерий сортировки.

Вот пример кода, который демонстрирует, как это можно сделать на Object Pascal (Delphi):

procedure SortTStringListWithOriginalIndexes(slStrings: TStringList);
var
  i, iIndex: Integer;
  originalIndexes: TArray<Integer>;
begin
  SetLength(originalIndexes, slStrings.Count);
  for i := 0 to slStrings.Count - 1 do
    originalIndexes[i] := i;

  slStrings.CustomSort(TStringListSortCompare);
  for i := 0 to slStrings.Count - 1 do
    originalIndexes[i] := slStrings.OriginalIndex[i];

  // Теперь originalIndexes[i] содержит оригинальный индекс элемента, который находится на i-й позиции в отсортированном списке slStrings
end;

type
  TStringListSortCompare = function(Const S1, S2: string): Integer;
  function CompareStrings(const S1, S2: string): Integer;
begin
  Result := CompareText(S1, S2);
end;

procedure TestSortTStringListWithOriginalIndexes;
var
  i, iIndex: Integer;
  slStrings: TStringList;
begin
  slStrings := TStringList.Create;
  slStrings.Sorted := False;

  slStrings.Add('Zebra');
  slStrings.Add('Bat');
  slStrings.Add('Cat');
  slStrings.Add('Hat');
  slStrings.Add('Aat');

  SortTStringListWithOriginalIndexes(slStrings);

  for i := 0 to slStrings.Count - 1 do
  begin
    iIndex := slStrings.OriginalIndex[i];
    // Теперь iIndex содержит оригинальный индекс элемента, который находится на i-й позиции в отсортированном списке slStrings
    // Вы можете использовать это значение для сохранения оригинальных индексов или для других целей
  end;
end;

В этом примере мы создаем процедуру SortTStringListWithOriginalIndexes, которая принимает TStringList в качестве параметра и сортирует его, сохраняя оригинальные индексы элементов. Мы также создаем процедуру CompareStrings, которая используется в качестве критерия сортировки. В тестовой процедуре TestSortTStringListWithOriginalIndexes мы создаем TStringList, добавляем в него несколько строк, сортируем его с помощью SortTStringListWithOriginalIndexes и затем перебираем отсортированный список, получая оригинальные индексы элементов с помощью свойства OriginalIndex TStringList.

Альтернативный ответ

Если вам нужно сохранить оригинальные индексы элементов при сортировке TStringList, вы можете использовать другой подход, основанный на использовании пользовательских объектов. В этом случае вы можете создать пользовательский тип, содержащий строку и ее оригинальный индекс, и добавить экземпляры этого типа в TStringList. При сортировке TStringList оригинальные индексы будут сохранены в пользовательских объектах.

Вот пример кода, который демонстрирует, как это можно сделать на Object Pascal (Delphi):

type
  TStringWithIndex = record
    Value: string;
    Index: Integer;
  end;

procedure SortTStringListWithOriginalIndexesUsingCustomObjects(slStrings: TStringList);
var
  i: Integer;
begin
  for i := 0 to slStrings.Count - 1 do
    slStrings.Objects[i] := TStringWithIndex.Create(slStrings[i], i);

  slStrings.CustomSort(TStringListSortCompareWithIndex);
  for i := 0 to slStrings.Count - 1 do
  begin
    with TStringWithIndex(slStrings.Objects[i]) do
      slStrings.Strings[i] := Value;
  end;
end;

type
  TStringListSortCompareWithIndex = function(Const S1, S2: TStringWithIndex): Integer;
  function CompareStringsWithIndex(const S1, S2: TStringWithIndex): Integer;
begin
  Result := CompareText(S1.Value, S2.Value);
end;

procedure TestSortTStringListWithOriginalIndexesUsingCustomObjects;
var
  i: Integer;
  slStrings: TStringList;
begin
  slStrings := TStringList.Create;
  slStrings.Sorted := False;

  slStrings.Add('Zebra');
  slStrings.Add('Bat');
  slStrings.Add('Cat');
  slStrings.Add('Hat');
  slStrings.Add('Aat');

  SortTStringListWithOriginalIndexesUsingCustomObjects(slStrings);

  for i := 0 to slStrings.Count - 1 do
  begin
    // Теперь оригинальный индекс элемента, который находится на i-й позиции в отсортированном списке slStrings, сохранен в свойстве Index пользовательского типа TStringWithIndex
    // Вы можете использовать это значение для сохранения оригинальных индексов или для других целей
  end;
end;

В этом примере мы создаем пользовательский тип TStringWithIndex, который содержит строку и ее оригинальный индекс. Мы также создаем процедуру SortTStringListWithOriginalIndexesUsingCustomObjects, которая принимает TStringList в качестве параметра и сортирует его, используя пользовательские объекты TStringWithIndex. При сортировке TStringList оригинальные индексы будут сохранены в свойстве Index пользовательских объектов. В тестовой процедуре TestSortTStringListWithOriginalIndexesUsingCustomObjects мы создаем TStringList, добавляем в него несколько строк, сортируем его с помощью SortTStringListWithOriginalIndexesUsingCustomObjects и затем перебираем отсортированный список, получая оригинальные индексы элементов с помощью свойства Index пользовательских объектов.

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

Статья описывает, как отсортировать TStringList в Delphi, сохраняя при этом оригинальные индексы элементов.

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

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

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