SuperObject(Delphi最好的JSON简析类) 扩展功能----排序(1)

一直有个想法。SuperObject这么好用的Json简析类，序列化出来的Json排序是乱的。

有时候想用SuperObject做保存树数据。这样一来排序都是乱乱的也就放弃了，这几天想改造一下SuperObject类。

将改造过程记下。以便以后查阅。

 

最初想法

增加ISuperObject属性SortMode:Integer排序方式(0:默认方式, 1:添加顺序, 2:升序)

缺点:

因为每个值都是一个TSuperObject对象。如果每个TSuperObject添加SortMode属性, 考虑的地方太多。

开始认为默认的方式是安装降序排列的，后来深入代码发现通过下面的方法计算key的值再进行比较得出进行排序。

class function TSuperAvlEntry.Hash(const k: SOString): Cardinal;

var
  h: cardinal;
  i: Integer;
  s: string;
begin
  h := 0;
  //modify mofen  without case
  s := LowerCase(k);
  for i := 1 to Length(s) do
  begin
    //origial
    h := h * 129 + ord(s[i]) + $9E370001;
    //h := h + ord(s[i]) * (1 shl (i * 3));
  end;
  Result := h;
end;

 

从上面代码可以看出如果字母多，肯定比字母计算出来的Hash值要大。

 

--此方案不妥