TStringGrid外栏标注

Question

我在写一段代码时遇到了一些问题。我正在使用TStringGrid绘制座位计划。

它应该做的是标记fixedcol和fixedrow以及字母向下和行的数字。

我的问题是我不知道如何更改我的代码，以便排除单元格[0,0]。它也没有标记所有行。

procedure TfrmDraw.FormCreate(Sender: TObject);
var
  i, j, k: Integer;
begin
  sgFloor.RowCount := adotSeats['Rows'] + 1;
  sgFloor.ColCount := adotSeats['Seats_per_Row'] + 1;

  for i := 0 to SgFloor.RowCount do 
  begin
    for j := 0 to SgFloor.ColCount do
    begin
      if i = 0 then
        SgFloor.Cells[i,j] := Chr(65 + j)
      else
      if j = 0 then
      begin
        for k := 1 to sgFloor.ColCount do
          SgFloor.Cells[i,0] := IntToStr(i) ;
      end;
    end;
  end;
end;

截图：

由于

Answer 1

一些好建议：

我知道使用RAD风格组件是多么容易， 但尽量不要绑定GUI逻辑和应用程序逻辑。 这将使您的代码更清晰，更易于阅读和维护。 还要为变量使用有意义的名称，这样做可以防止愚蠢的错误。

现在关于你的问题， 网格使用从0开始的索引，因此最后一个索引比计数少一个。 在你的情况下，固定的行和列都有索引0，这意味着我们必须从下一个索引开始迭代，即1，我使用FixedRows和FixedCols属性使其更具可读性。如果您有多个固定行/列，它还会标记最内部的固定行/列。更容易制作2个单独的循环，一个用于标题行，另一个用于列：

procedure SetupGrid(Grid : TStringGrid; Rows, Columns : Integer);

var
 Row, Col: Integer;

begin
 Grid.FixedCols := 1;
 Grid.FixedRows := 1;
 Grid.RowCount := Rows + Grid.FixedRows;
 Grid.ColCount := Columns + Grid.FixedCols;

 for Row := Grid.FixedRows to Grid.RowCount-1 do 
  Grid.Cells[0, Row] := Chr(Ord('A') + Row-1);

 for Col := Grid.FixedCols to Grid.ColCount-1 do
  Grid.Cells[Col, 0] := IntToStr(Col); 
end;

procedure TfrmDraw.FormCreate(Sender: TObject);
begin
 // try to make your GUI events as lightweight as possible and seal
 // your code into separate functions/classes, this will improve readability 
 // of the GUI units and it will make your code testable
 SetupGrid(sgFloor, adotSeats['Rows'], adotSeats['Seats_per_Row']);  
end;