Delphi XE: ¿Dónde está mi TValue.Equals()?

Question

Parece que, en mi opinión, falta un método obligatorio de TValue; TValue.Equals (TValue).

¿Cuál es tan una manera rápida y decente de la comparación de 2 tValues, preferiblemente sin el uso de TValue.ToString(), que permite falsas coincidencias entre las variantes, registros, etc.

Answer 1

Delphi-Mocks presenta dos funciones:

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

Con el ayudante récord para TValue también se puede hacer TValue.Equals(TValue);

licencia bajo los términos de Apache y bajo el permiso de Stefan Glienke.

Aquí está la fuente original de Stefan: delphisorcery.

Si necesita ampliar la funcionalidad de las variantes, añadir:

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

e insertar

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

después de la comparación isString en la función SameValue.