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

function  TSuperAvlTree.Search( const  k: SOString; st: TSuperAvlSearchTypes): TSuperAvlEntry;
var
  cmp, target_cmp: integer;
  match_h, h: TSuperAvlEntry;
  ha: Cardinal;
begin
  ha : =  TSuperAvlEntry.Hash(k);

  match_h : =   nil ;

  h : =  FRoot;



   if  (stLess  in  st)  then
    target_cmp : =   1   else
     if  (stGreater  in  st)  then
      target_cmp : =   - 1   else
      target_cmp : =   0 ;

   while  (h  <>   nil )  do
   begin

             //  modify by mofen
     if  nowSortMode  =  sosmDefault  then
     begin
       // original code
       if  h.FHash  <  ha  then  cmp : =   - 1   else
         if  h.FHash  >  ha  then  cmp : =   1   else
          cmp : =   0 ;
     end   else
     begin
       //  modify by mofen
      cmp : =  CompareForSortModeString(k, h.Name);
     end ;
........

function  TSuperAvlTree.Delete( const  k: SOString): ISuperObject;
var
  depth, rm_depth: longint;
  branch: TSuperAvlBitArray;
  h, parent, child, path, rm, parent_rm: TSuperAvlEntry;
  cmp, cmp_shortened_sub_ with _path, reduced_depth, bf: integer;
  ha: Cardinal;
begin
  ha : =  TSuperAvlEntry.Hash(k);
  cmp_shortened_sub_ with _path : =   0 ;
  branch : =  [];

  depth : =   0 ;
  h : =  FRoot;
  parent : =   nil ;
   while  true  do
   begin
     if  (h  =   nil )  then
      exit;

     //      if  h.FHash  <  ha  then  cmp : =   - 1   else
     //        if  h.FHash  >  ha  then  cmp : =   1   else
     //         cmp : =   0 ;

             //  modify by mofen
     if  nowSortMode  =  sosmDefault  then
     begin
       // original code
       if  h.FHash  <  ha  then  cmp : =   - 1   else
         if  h.FHash  >  ha  then  cmp : =   1   else
          cmp : =   0 ;
     end   else
     begin
       //  modify by mofen
      cmp : =  CompareForSortModeString(k, h.Name);
     end ;
.........