Delphi XE: dov'è il mio TValue.Equals()?

Question

Sembra che, a mio parere, manca il metodo obbligatorio da TValue; TValue.Equals (TValue).

Così che cosa è un modo veloce e decente di confronto di 2 TValues, preferibilmente senza l'uso di TValue.ToString(), che consente di falsi match tra le varianti, dischi, ecc

Answer 1

Delphi-Mocks presenta due funzioni:

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

Con l'aiuto record per TValue si può anche fare TValue.Equals(TValue);

Distribuito sotto licenza Apache termini e sotto il permesso di Stefan Glienke.

Ecco la fonte originale di Stefan: delphisorcery.

Se è necessario estendere la funzionalità per le varianti, aggiungere:

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

e inserire

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

dopo il confronto IsString nella funzione SameValue.