一个数据集里面去除重复的值，并对值相加

非源码。提供思路

TStringList

//

 FilessList:=TStringList.Create;
 FilessList.Sorted:=True;
 FilessList.Duplicates:=dupIgnore;

 for 循环

          if FilessList.Values[szname]='' then
             FilessList.Add(szname+'='+sznum)
            else
            begin
              oldnum:= FilessList.Values[szname];
              sznum:=IntToStr(StrToInt(sznum)+StrToInt(oldnum))

            //更新list信息

              dd:=FilessList.IndexOf(szname+'='+oldnum) ;
              FilessList.Delete(dd);
              FilessList.Add(szname+'='+sznum);
            end;

  这样 以后 FilessList的格式就已经是去除 重复值的list