給 StringGrid 的 ACol 列快速法排序

procedure TFrmDBDL.GridQuickSort(Grid: TStringGrid; ACol: Integer; Order,
  NumOrStr: Boolean);
(*  函數功能：給 StringGrid 的 ACol 列快速法排序
(*            Order: True 從小到大
(*                 : False 從大到小
(*        NumOrStr : true 值的類型是Integer
(*                 : False 值的類型是String
(*  函數說明：對於日期，時間等類型數據均可按字符方式排序， *)
  procedure MoveStringGridData(Grid: TStringGrid; Sou,Des :Integer );
  var
    TmpStrList: TStringList ;
    K : Integer ;
  begin
    TmpStrList :=TStringList.Create() ;
    try
      TmpStrList :=TStringList.Create() ;
      TmpStrList.Clear ;
      for K := Grid.FixedCols to Grid.ColCount -1 do
        TmpStrList.Add(Grid.Cells[K,Sou]) ;
      Grid.Rows [Sou] := Grid.Rows [Des] ;
      for K := Grid.FixedCols to Grid.ColCount -1 do
        Grid.Cells [K,Des]:= TmpStrList.Strings[K] ;
    finally
      TmpStrList.Free ; 
    end;
  end; 

  procedure QuickSort(Grid: TStringGrid; iLo, iHi: Integer);
  var
    Lo, Hi : Integer;
    Mid: String ; 
  begin 
    Lo := iLo ;
    Hi := iHi ; 
    Mid := Grid.Cells[ACol,(Lo + Hi) div 2]; 
    repeat 
      if Order and not NumOrStr then //按正序、字符排
      begin 
        while Grid.Cells[ACol,Lo] < Mid do Inc(Lo); 
        while Grid.Cells[ACol,Hi] > Mid do Dec(Hi);
      end ;
      if not Order and not NumOrStr then //按反序、字符排
      begin
        while Grid.Cells[ACol,Lo] > Mid do Inc(Lo);
        while Grid.Cells[ACol,Hi] < Mid do Dec(Hi);
      end;

      if NumOrStr then 
      begin
        if Grid.Cells[ACol,Lo] = '' then Grid.Cells[ACol,Lo] := '0' ; 
        if Grid.Cells[ACol,Hi] = '' then Grid.Cells[ACol,Hi] := '0' ;
        if Mid = '' then Mid := '0' ;
        if Order then
        begin //按正序、數字排
          while StrToFloat(Grid.Cells[ACol,Lo]) < StrToFloat(Mid) do Inc(Lo);
          while StrToFloat(Grid.Cells[ACol,Hi]) > StrToFloat(Mid) do Dec(Hi);
        end else 
        begin //按反序、數字排 
          while StrToFloat(Grid.Cells[ACol,Lo]) > StrToFloat(Mid) do Inc(Lo);
          while StrToFloat(Grid.Cells[ACol,Hi]) < StrToFloat(Mid) do Dec(Hi);
        end; 
      end ;
      if Lo <= Hi then
      begin 
        MoveStringGridData(Grid, Lo, Hi) ;
        Inc(Lo); 
        Dec(Hi);
      end; 
    until Lo > Hi;
    if Hi > iLo then QuickSort(Grid, iLo, Hi);
    if Lo < iHi then QuickSort(Grid, Lo, iHi);
  end;

begin
  try
    QuickSort(Grid, Grid.FixedRows, Grid.RowCount - 1 ) ;
  except
  on E: Exception do
    Application.MessageBox(Pchar('系統在排序數據的時候遇到異常:'#13+E.message+#13'請重試，如果該問題依然存在請與程序供應商聯繫！'),'系統錯誤',MB_OK+MB_ICONERROR) ;
  end;

end;