Delphi XE : Where is my TValue. 等于()？

Question

在我看来，TValue 似乎缺少一个强制方法； TValue.Equals(TValue)。

那么比较 2 个 TValue 的快速且合适的方法是什么，最好不使用 TValue.ToString()，它允许变体、记录等之间出现错误匹配。

Answer 1

Delphi-Mocks提供两个功能:

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

使用 TValue 的记录助手，您还可以执行 TValue.Equals(TValue);

根据 Apache 条款获得许可并得到 Stefan Glienke 的许可。

这是 Stefan 的原始来源:delphisorcery .

如果您需要扩展变体的功能，请添加:

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

并插入

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

在 SameValue 函数中进行 isString 比较之后。