SuperObject(Delphi最好的JSON简析类) 扩展功能----排序(1)-阿里云开发者社区

开发者社区> 大数据> 正文

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

简介: 一直有个想法。SuperObject这么好用的Json简析类,序列化出来的Json排序是乱的。 有时候想用SuperObject做保存树数据。这样一来排序都是乱乱的也就放弃了,这几天想改造一下SuperObject类。

一直有个想法。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值要大。

 

--此方案不妥

 

 

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
大数据
使用钉钉扫一扫加入圈子
+ 订阅

大数据计算实践乐园,近距离学习前沿技术

其他文章