Быстрое и надежное сравнение значений типа `TValue` в Delphi без использования `ToString()`

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

Быстрое и надежное сравнение значений типа TValue в Delphi без использования ToString()

Вопрос о сравнении значений типа TValue в Delphi XE является актуальным, так как стандартный набор методов этого класса не включает в себя функцию сравнения, которая, на наш взгляд, должна быть обязательной. В частности, отсутствует метод TValue.Equals(TValue), который позволил бы выполнять сравнение двух объектов данного типа.

Альтернативный ответ и поиск решения

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

Подтвержденный ответ и решение проблемы

Наилучшим решением проблемы является использование функций, представленных в библиотеке Delphi-Mocks. В частности, функции CompareValue и SameValue, определенные в модуле Delphi.Mocks.Helpers, позволяют сравнивать значения TValue без использования ToString(), что исключает возможность ложного совпадения между различными типами данных, такими как варианты и записи.

function CompareValue(const Left, Right: TValue): Integer;
function SameValue(const Left, Right: TValue): Boolean;

Также, с помощью вспомогательных функций для записи TValue, можно выполнить сравнение. Однако, стоит отметить, что для полноценной работы с вариантами, необходимо дополнительно реализовать функцию TValueHelper.IsVariant и соответствующую логику в функции SameValue.

function TValueHelper.IsVariant: Boolean;
begin
  Result := TypeInfo = System.TypeInfo(Variant);
end;

И затем, если оба сравниваемых значения являются вариантами, проверить их равенство через AsVariant.

if Left.IsVariant and Right.IsVariant then
begin
  Result := Left.AsVariant = Right.AsVariant;
end;

Обратите внимание, что данный код следует вставить после проверки строк, в функции SameValue.

Исходный код и лицензирование

Исходный код, представленный Стефаном Глиенке (Stefan Glienke), доступен по ссылке delphisorcery. Он распространяется под лицензией Apache и с разрешения автора.

Заключение

Разработчики могут использовать представленные функции для быстрого и надежного сравнения значений TValue без риска ложных совпадений, вызванных использованием метода ToString(). При необходимости, можно дополнить функционал, учитывая специфику задач и используемых типов данных.

Данная статья предназначена для специалистов, работающих с языками программирования Pascal и Delphi, и может быть полезна при решении задач, связанных с сравнением значений в этих технологиях.

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

Статья о методе сравнения значений типа `TValue` в Delphi без преобразования к строке.

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

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

:: Главная :: RTTI ::