我需要检查应用程序的某个部分是否发生了变化,因此我在加载数据后对它们进行 "复制",然后进行比较。比较功能的一部分涉及检查字典中的键,如 lDict1.Keys.EqualsTo(lDict2.Keys)
.
虽然字典不依赖于元素的顺序,但我没有意识到,即使我用相同的数据填充两个字典,它们的创建也不会相同,元素的顺序可能会改变,所以之前的函数不能正常工作,因为它依赖于元素顺序,当使用以下任何一种方法时,元素顺序可能不匹配。(我不知道为什么)
var
lDict1, lDict2 : IDictionary<Integer, TObject>;
lKey : Integer;
begin
lDict1 := TCollections.CreateDictionary<Integer, TObject>;
lDict1.Add(5, nil); // Keys.First = 5, Keys.Last = 5
lDict1.Add(6, nil); // Keys.First = 5, Keys.Last = 6
lDict2 := TCollections.CreateDictionary<Integer, TObject>;
lDict2.AddRange(lDict1); // Keys.First = 6, Keys.Last = 5
lDict2.Clear;
for lKey in lDict1.Keys do // Keys.First = 6, Keys.Last = 5
lDict2.Add(lKey, nil);
end;
有什么办法可以将字典完全复制出来,这样我就可以比较它们了?解决这个问题的一个方法是创建我自己的比较函数,但我想避免这样做。
function ContainsSameValues<T>(AEnumerable1, AEnumerable2: IEnumerable<T>): Boolean;
var
lValue : T;
begin
Result := AEnumerable1.Count = AEnumerable2.Count;
if Result then
begin
for lValue in AEnumerable1 do
begin
Result := AEnumerable2.Contains(lValue);
if not Result then
Exit;
end;
end;
end;
使用
ContainsSameValues<Integer>(lDict1.Keys, lDict2.Keys);
检查无序字典的平等性是一个比较简单的算法。我在这里概述一下。假设我们有两个字典,A和B。