Delphi - 排序后字符串网格的问题

问题描述

所以我在这里提到的程序中的字符串网格：(Delphi - Changing active page's tab color and having it reset after clicking on another tab) 从最小到最大排序完美，但网格在某种程度上会出现故障/失控。排序后的行被抛出到网格的末尾（有时甚至没有行号或行保留其编号）。所以我的问题是如何在不完全破坏网格的情况下对字符串网格进行排序？

我正在使用的代码：

//code that sorts the grid
procedure TfrmPuntehou.SortSTLGrid(var grid:TStringGrid; columntotal:integer);
const
separator = ',';
var
iCount,i,j,k,iPos:integer;
TheList:TStringList;
sString,sTempString:string;
begin
  //procedure to sort from small to large values

  //get row amount
  iCount:=grid.RowCount;

  //create list
  TheList:=TStringList.Create;
  TheList.Sorted:=False;

  //start of try..finally block
    try
    begin

      //fill the list
      for i := 1 to (iCount - 1) do
      begin
      TheList.Add(grid.Rows[i].Strings[columntotal]+separator+grid.Rows[i].Text);
      end;

      //sort the list
      TheList.Sort;

      for k := 1 to TheList.Count do
      begin
      //take the line of the list and put it in a string var
      sString:= TheList.Strings[(k-1)];
      //get separator pos in that string
      iPos:=AnsiPos(separator,sString);
      sTempString:='';
      //remove separator and the column text at the front of the string
      sTempString:=Copy(sString,(iPos+2),Length(sString));
      TheList.Strings[(k-1)]:= '';
      TheList.Strings[(k-1)]:= sTempString;
      end;

      //fill the grid
      for j:= 1 to (iCount - 1) do
      begin
      grid.Rows[j].Text := TheList.Strings[(J-1)] ;
      end;

    end;
    finally
    TheList.Free;
    end;
  //end of try..finally block

end;

//code that I use to customize the grid on startup

procedure TfrmPuntehou.TitlesAndNumbering(grid: TStringGrid);
var
  i:integer;
begin
  //procedure that customizes the grid entered as a parameter
  with grid do
  begin
    //names the columns
    Cells[0,0]:='Row Number';
    Cells[1,0]:='Car Number';
    Cells[2,0]:='Name';
    Cells[3,0]:='Licence';
    Cells[4,0]:='Heat 1';
    Cells[5,0]:='Heat 2';
    Cells[6,0]:='Subtotal 1';
    Cells[7,0]:='Heat 3';
    Cells[8,0]:='Subtotal 2';
    Cells[9,0]:='Final';
    Cells[10,0]:='Final Total';

        //for loop to number the rows
        for i := 1 to rowMax do
        begin
            Cells[0,i]:=IntToStr(i);
        end;
        //end of for

    //other extra settings
    RowCount:=rowMax;
    ColCount:=colMax;
    DefaultColWidth:=100;
    FixedCols:=0;
    FixedRows:=1;
  end;
end;

说明问题的屏幕截图：

排序前：

排序后：

在此先感谢您的帮助！
亲切的问候
PrimeBeat

解决方法

总结评论中的答案：

您的问题是由于您将 RowCount 设置为 RowMax 而添加了很多空行。排序后，空单元格将移至列表顶部。

有两种解决方案：

1. 您停止添加空行，排序将如预期
2. 管理使用 comparer 进行排序，使空字符串与所有其他字符串一样大，而不是默认的较小的字符串。请参阅documentation for CustomSort

请注意，您可以随时更改行数。只需分配 RowCount 属性。例如，当您添加一行时，请执行：

   Grid.RowCount := Grid.RowCount + 1;

当您删除最后一行时，请执行以下操作：

   Grid.RowCount := Grid.RowCount - 1;