Board logo

标题: 【Sort2DArrayByKey】 [打印本页]
作者: 龙听    时间: 2022-11-2 13:17     标题: 【Sort2DArrayByKey】

  1. inputs:
  2.         _2DArray[MaxSize1, MaxSize2]( numericarrayref ),
  3.         Size( numericsimple ),                        
  4.         HiLo( numericsimple ) ;                                                     

  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 ;
复制代码




欢迎光临 龙听期货论坛 (http://qhlt.club/) Powered by Discuz! 7.2