Создание пользовательского компаратора для `TObjectDictionary` в Delphi: сравнение по значению полей вместо адресов объектов

Delphi , Синтаксис , Память и Указатели

Создание пользовательского компаратора для TObjectDictionary в Delphi: сравнение по значению полей вместо адресов объектов

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

Проблема

Допустим, у нас есть класс TTest, который содержит несколько полей:

TTest = class
private
  FId: Integer;
  FSecField: Integer;
  FThirdField: Integer;
public
  constructor Create(AId, ASecField, AThirdField: Integer);
  // ... остальной код класса ...
end;

При создании TObjectDictionary с ключом типа TTest:

procedure TMainForm.btnTestClick(Sender: TObject);
var
  TestDict: TObjectDictionary<TTest, string>;
  Instance: TTest;
begin
  TestDict := TObjectDictionary<TTest, string>.Create([doOwnsKeys]);
  try
    // Добавление объекта в словарь
    TestDict.Add(TTest.Create(1, 1, 1), '');
    // Проверка на наличие объекта с такими же адресами
    if TestDict.ContainsKey(TTest.Create(1, 1, 1)) then
      ShowMessage('Match found')
    else
      ShowMessage('Match not found');

    // Создание нового экземпляра с такими же значениями полей
    Instance := TTest.Create(1, 1, 1);
    TestDict.Add(Instance, 'str');
    // Проверка на наличие объекта по значениям полей
    if TestDict.ContainsKey(Instance) then
      ShowMessage('Match found')
    else
      ShowMessage('Match not found');
  finally
    TestDict.Free;
  end;
end;

Результатом работы такого кода будет вывод сообщений "Match not found" и "Match found", что указывает на то, что по умолчанию ContainsKey сравнивает объекты по их адресам, а не по значениям полей.

Решение

Чтобы сравнивать объекты по значению полей, необходимо использовать пользовательский компаратор. В TObjectDictionary можно указать свой компаратор, который будет сравнивать объекты по значению полей, а не по адресам.

TestDict := TObjectDictionary<TTest, string>.Create(
  [doOwnsKeys],
  TEqualityComparer<TTest>.Construct(EqualityComparison, Hasher)
);

Функция EqualityComparison должна возвращать True, если все поля объектов равны:

EqualityComparison :=
  function(const Left, Right: TTest): Boolean
  begin
    Result := (Left.FId = Right.FId)
      and (Left.FSecField = Right.FSecField)
      and (Left.FThirdField = Right.FThirdField);
  end;

Функция Hasher используется для генерации хеша объекта, который будет использоваться для ускорения поиска:

Hasher :=
  function(const Value: TTest): Integer
  begin
    Result := System.Hash.THashBobJenkins.Hash(Value.FId, SizeOf(Value.FId), 0);
    Result := System.Hash.THashBobJenkins.Hash(Value.FSecField, SizeOf(Value.FSecField), Result);
    Result := System.Hash.THashBobJenkins.Hash(Value.FThirdField, SizeOf(Value.FThirdField), Result);
  end;

Обратите внимание, что в комментариях упоминается использование System.Hash.THashBobJenkins.Hash вместо устаревшей функции BobJenkinsHash.

Заключение

Использование пользовательского компаратора позволяет разработчикам контролировать процесс сравнения объектов в TObjectDictionary, что особенно важно при работе с объектами, которые должны считаться равными на основе значений полей, а не адресов в памяти.

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

Создание пользовательского компаратора для `TObjectDictionary` в Delphi для сравнения объектов по значению полей, а не по их адресам в памяти.

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

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

:: Главная :: Память и Указатели ::