Проблемы и решения при использовании `BinarySearch` для `TTPRODDataList` в Delphi

Delphi , Компоненты и Классы , Списки

Проблемы и решения при использовании BinarySearch для TTPRODDataList в Delphi

Вопрос, поднятый в данном запросе, заключается в невозможности использования функции BinarySearch для класса TTPRODDataList в среде разработки Delphi XE3. Несмотря на то, что в документации указано, что такая функция доступна для TObjectList, попытка её использования приводит к ошибке компиляции.

Объяснение проблемы

Проблема возникает из-за использования двух разных версий класса TObjectList. В документации описывается generic контейнер TObjectList<T> из модуля Generics.Collections, в то время как в примере кода используется устаревший не-generic контейнер TObjectList из модуля Contnrs. Метод BinarySearch доступен только для generic класса.

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

Для решения проблемы необходимо перейти на использование generic контейнера, что позволит убрать большую часть вспомогательного кода из класса TTPRODDataList. Класс будет выглядеть следующим образом:

TTPRODDataList = class(TObjectList<TTPRODData>)
public
  procedure SortOnProductCode;
end;

В этом случае не требуется определять методы GetItem, SetItem и свойство Items, так как generic класс уже включает в себя эту функциональность.

Пример кода для SortOnProductCode

Для использования SortOnProductCode необходимо адаптировать код сравнения к интерфейсу, используемому generic контейнерами Delphi. Пример такого адаптированного кода:

type
  TTProdComparer = class(TComparer<TTPRODData>)
  public
    function Compare(const Item1, Item2: TTPRODData): Integer; override;
  end;

function TTProdComparer.Compare(const Item1, Item2: TTPRODData): Integer;
begin
  Result := CompareStr(Item1.FData1, Item2.FData1);
end;

Пример использования BinarySearch после перехода на generic контейнер

После перехода на generic контейнер, использование BinarySearch станет возможным. Вот пример кода для поиска элемента:

var
  aDummy: TTPRODData;
  aNdx: Integer;
begin
  aDummy := TTPRODData.Create;
  // Инициализация свойств aDummy для поиска...

  aNdx := aProdList.BinarySearch(aDummy);
  // aNdx будет содержать индекс найденного элемента или -1, если элемент не найден.
end;

Заключение

Переход на использование generic контейнера TObjectList<T> позволит не только устранить проблему с BinarySearch, но и упростить структуру класса TTPRODDataList, убрав избыточный код.

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

Проблема использования `BinarySearch` для класса `TTPRODDataList` в Delphi связана с несовместимостью версий `TObjectList` и требует перехода на generic контейнер для решения.

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

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

:: Главная :: Списки ::