anchor.diff:  var
     i : integer;
     tmpValue : variant;
  -  tmpIndex : TmStringDictionary;
  +  tmpIndex : TStringHashMap;
     str : String;
   begin
  -  tmpIndex := TmStringDictionary.Create();
  +  tmpIndex := TStringHashMap.Create;
     try
       for i := 0 to Self.GetRecordCount - 1 do
       begin
  
positive.code: 
        str := VarToStr(tmpValue);
  
        if tmpIndex.Find(str) = nil then
        begin
           tmpIndex.Add(str, tmpIndex);
           aList.Add(str);
        end;
      end;
      aList.Sort;
  
negative.code: interface
  
  uses
    DB, Classes, contnrs, Variants, StrHashMap,
    mVirtualDataSet, mVirtualDataSetInterfaces, mSortConditions, mFilter, mIntList, mMaps, mLog,
    mVirtualDataSetJoins;
  
  