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

在superObject中添加排序类型

type //add By Mofen

  TSOSortMode = (sosmDefault {默认的方式}, sosmAdd {添加的顺序}, sosmASC {升序}, sosmDesc {降序});

添加全局设置方法

var

  nowSortMode: TSOSortMode = sosmDefault;

//设置排序模式 Mofen

procedure SetSOSortMode(pvSortMode: TSOSortMode);

begin

  nowSortMode := pvSortMode;

end;

需要改造的类主要为

TSuperAvlTree

其中需要改造的方法有

Insert序列化出来的顺序

Search搜索路径

Delete删除

首先主要看看Insert方法,修改该方法后，可以看到so.asJson，可以看到序列化的结果，顺序是按照我们设定的顺序排列的

 1 function TSuperAvlTree.Insert(h: TSuperAvlEntry): TSuperAvlEntry;

 2 var

 3   unbal, parentunbal, hh, parent: TSuperAvlEntry;

 4   depth, unbaldepth: longint;

 5   cmp: integer;

 6   unbalbf: integer;

 7   branch: TSuperAvlBitArray;

 8   p: Pointer;

 9 begin

10   inc(FCount);

11   h.FLt := nil;

12   h.FGt := nil;

13   h.FBf := 0;

14   branch := [];

15 

16   if (FRoot = nil) then

17     FRoot := h

18   else

19   begin

20     unbal := nil;

21     parentunbal := nil;

22     depth := 0;

23     unbaldepth := 0;

24     hh := FRoot;

25     parent := nil;

26     repeat

27       if (hh.FBf <> 0) then

28       begin

29         unbal := hh;

30         parentunbal := parent;

31         unbaldepth := depth;

32       end;

33       if hh.FHash <> h.FHash then

34       begin

35         if nowSortMode = sosmDefault then

36         begin

37           //original code  //这里是原始的方法，比较两个Key的hash值来决定存放的位置

38           if hh.FHash < h.FHash then cmp := -1 else

39             if hh.FHash > h.FHash then cmp := 1 else

40               cmp := 0;

41         end else

42         begin

43           // modify by mofen  //如果要进行排序，我们可以根据比较两个值的Key来决定存放的位置, 要进行排序，无可争议，必须比较Key而不能比较Key的hash值

44           cmp := CompareForSortModeString(h.Name, hh.Name);

45         end;

 1 function TSuperAvlTree.CompareForSortModeString(pvKey1, pvKey2: SOString):

 2   Integer;

 3 var

 4   cmp: integer;

 5   lvKey1, lvKey2: SOString;

 6 begin

 7   lvKey1 := LowerCase(pvKey1);

 8   lvKey2 := LowerCase(pvKey2);

 9   if lvKey1 <> lvKey2 then

10   begin

11     case nowSortMode of

12       sosmAdd: cmp := 1;

13       sosmASC: if lvKey2 < lvKey1 then cmp := 1 else if lvKey2 > lvKey1 then cmp := -1;

14       sosmDesc: if lvKey2 < lvKey1 then cmp := -1 else if lvKey2 > lvKey1 then cmp := 1;

15     else

16       raise Exception.Create('默认排序不采用compareForSortModeString');

17     end;

18   end else

19     cmp := 0;

20   Result := cmp;

21 end;