Визуализация плана рассадки в Delphi: работа с TStringGrid и нумерация строк и столбцов

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

Разработка пользовательского интерфейса в среде Delphi часто требует работы с компонентами, такими как TStringGrid, которые позволяют создавать сложные табличные представления данных. В данной статье мы рассмотрим, как можно использовать TStringGrid для визуализации плана рассадки, а также как решить проблему с нумерацией строк и столбцов, исключая определенные ячейки.

Проблема нумерации в TStringGrid

При работе с TStringGrid важно помнить, что индексация ячеек начинается с нуля. Это означает, что последняя ячейка столбца или строки имеет индекс, на единицу меньший, чем общее количество столбцов или строк. В контексте визуализации плана рассадки это означает, что для корректной нумерации необходимо начать итерацию с индекса 1, а не с 0.

Пример кода с ошибкой

В коде, предоставленном пользователем, есть несколько ошибок, из-за которых нумерация строк и столбцов не отображается корректно. В частности, нумерация начинается с ячейки [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;

Решение проблемы

Чтобы решить проблему, необходимо разделить процесс нумерации на два отдельных цикла: один для нумерации строк и один для нумерации столбцов. Также следует использовать свойства FixedRows и FixedCols для корректной нумерации.

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
  SetupGrid(sgFloor, adotSeats['Rows'], adotSeats['Seats_per_Row']);
end;

Этот подход позволяет избежать заполнения ячейки [0, 0] и обеспечивает корректную нумерацию для всех строк и столбцов.

Общие рекомендации

При работе с компонентами Delphi важно разделять логику пользовательского интерфейса и логику приложения. Это улучшит читаемость и упростит поддержку кода. Также рекомендуется использовать осмысленные имена переменных, чтобы предотвратить ошибки.

Заключение

В данной статье мы рассмотрели, как с помощью TStringGrid можно визуализировать план рассадки, а также как правильно настроить нумерацию строк и столбцов, избегая ошибок, связанных с индексацией. Используя предложенный подход, вы сможете создать четкий и функциональный план рассадки в вашем приложении на Delphi.

Создано по материалам из источника по ссылке.

Разработка пользовательского интерфейса в Delphi с использованием TStringGrid для визуализации плана рассадки и корректной нумерации строк и столбцов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TStringGrid и TDrawGrid ::