求：效率高的排序法算法，谢谢各位！

Question

小弟初学，不吝赐教。

Answer 1

procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
  var
    Lo, Hi, Mid, T: Integer; 
  begin 
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2]; 
    repeat 
      while A[Lo] < Mid do Inc(Lo); 
      while A[Hi] > Mid do Dec(Hi);
      if Lo <= Hi then 
      begin 
   //     VisualSwap(A[Lo], A[Hi], Lo, Hi); 
        T := A[Lo]; 
        A[Lo] := A[Hi];
        A[Hi] := T; 
        Inc(Lo); 
        Dec(Hi); 
      end;
    until Lo > Hi; 
    if Hi > iLo then QuickSort(A, iLo, Hi); 
    if Lo < iHi then QuickSort(A, Lo, iHi); 
   // if Terminated then Exit;
  end;请问A就是我要带入的要排序的数组么？

Answer 2

A：传入的要排序的数组；iLo取值：Low(A)；Hi取值：High(A)