Delphi XE: TValue.Equals() ở đâu?

Question

Có vẻ như một, theo phương pháp bắt buộc quan điểm của tôi bị thiếu trong TValue; TValue.Equals (TValue).

Vì vậy, whats một cách nhanh chóng và khá so sánh 2 TValues, tốt nhất là không sử dụng TValue.ToString(), cho phép các trận đấu sai giữa các biến thể, hồ sơ vv

Answer 1

Delphi-Mocks trình bày hai chức năng:

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

với sự trợ giúp đăng ký cuối cùng TValue bạn cũng có thể làm TValue.Equals(TValue);

được cấp phép theo các điều khoản Apache và dưới sự cho phép của Stefan Glienke.

Đây là nguồn gốc của Stefan: delphisorcery.

Nếu bạn cần phải mở rộng chức năng cho các biến thể, thêm:

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

và chèn

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

sau khi so sánh isString trong SameValue chức năng.