【Sort2DArrayByKey】

1. inputs:
   
2.         _2DArray[MaxSize1, MaxSize2]( numericarrayref ),
   
3.         Size( numericsimple ),                        
   
4.         HiLo( numericsimple ) ;                                                     
   
5. 
   
6. for Value1 = 0 to Size - 2
   
7.         begin
   
8.         for Value2 = Value1 + 1 to Size - 1
   
9.                 begin
   
10.                 condition1 = ( HiLo = 1 and _2DArray[Value1, 0] < _2DArray[Value2, 0] )
    
11.                  or ( HiLo = -1 and _2DArray[Value1, 0] > _2DArray[Value2, 0] ) ;
    
12.                  
    
13.                 if condition1 then
    
14.                         begin
    
15.                         value11 = _2DArray[Value1, 0];
    
16.                         _2DArray[Value1, 0] = _2DArray[Value2, 0];
    
17.                         _2DArray[Value2, 0] = value11;
    
18.                        
    
19.                         value22 = _2DArray[Value1, 1];
    
20.                         _2DArray[Value1, 1] = _2DArray[Value2, 1];
    
21.                         _2DArray[Value2, 1] = value22;
    
22.                         end ;
    
23.                 end ;
    
24.         end ;
    
25. Sort2DArrayByKey = 1 ;

复制代码