Исправление ошибки "Grid Index out of range" при работе со строковым гридом в Delphi 7

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

Рассмотрим проблему, с которой сталкиваются разработчики, использующие строковые гриды в Delphi 7. Проблема заключается в том, что при попытке выделить строку с индексом, равным количеству строк в гриде, возникает ошибка "Grid Index out of range". Давайте разберемся в причинах возникновения этой ошибки и найдем решение.

Описание проблемы

Пользователь работает со строковым гридом в Delphi 7 и столкнулся с проблемой выделения строк. При клике на элемент списка с индексом, соответствующим количеству строк в гриде, происходит ошибка. Это связано с тем, что индексация строк в гриде начинается с нуля, и последней является строка с индексом RowCount - 1.

Пример кода, вызывающего ошибку

MystringGrid.Col := 0;
MystringGrid.Row := ListBox.ItemIndex;
MystringGrid.Selection := TGridRect.Create(0, 1, 1, MystringGrid.ColCount);
MystringGrid.SetFocus;

Если ListBox.ItemIndex равен MystringGrid.RowCount, то код вызовет ошибку Grid Index out of range, так как пытается обратиться к несуществующей строке.

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

В коде, представленном в вопросе, попытка выделения строки происходит с использованием неправильного диапазона индексов. В Delphi гриды индексируются начиная с нуля, а значит, последняя строка будет иметь индекс RowCount - 1.

Исправленный код для выделения строки будет выглядеть следующим образом:

MystringGrid.Col := 0;
if ListBox.ItemIndex < MystringGrid.RowCount then // Проверяем, что индекс не выходит за пределы
  MystringGrid.Row := ListBox.ItemIndex;
  MystringGrid.Selection := TGridRect.Create(0, MystringGrid.Row, MystringGrid.ColCount, 1); // Выделяем только столбец "ширина" равный количеству столбцов
  MystringGrid.SetFocus;

Для выделения последней строки необходимо использовать следующий код:

MystringGrid.Selection := TGridRect.Create(0, MystringGrid.RowCount - 1, MystringGrid.ColCount, 1);

Альтернативное решение

Также можно использовать более простой способ выделения строки, не создавая объект TGridRect:

MystringGrid.Options := MystringGrid.Options + [goCurrentRow];
MystringGrid.CurrentRow := ListBox.ItemIndex;

Это автоматически выделит строку без необходимости вручную задавать выделение.

Заключение

Исправление ошибки "Grid Index out of range" в Delphi 7 требует понимания того, как индексируются строки в гриде. Важно помнить, что последняя строка имеет индекс RowCount - 1. Используя это знание, можно легко исправить код для корректного выделения строк в гриде.

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

Разработчик в Delphi 7 столкнулся с ошибкой 'Grid Index out of range' при работе со строковым гридом из-за попытки обращения к несуществующей строке с индексом, равным количеству строк в гриде.

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

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

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