Удалить строку из TStringGrid

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);
 var
   i: Integer;
 begin
   Grid.Row := RowNumber;
   if (Grid.Row = Grid.RowCount - 1) then
     { On the last row}
     Grid.RowCount := Grid.RowCount - 1
   else
   begin
     { Not the last row}
     for i := RowNumber to Grid.RowCount - 1 do
       Grid.Rows[i] := Grid.Rows[i + 1];
     Grid.RowCount := Grid.RowCount - 1;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   GridDeleteRow(3, stringGrid1);
 end;

Here's the translation of the text into Russian:

Код на Delphi - это короткий и эффективный пример удаления строки из компонента TStringGrid.

Процедура GridDeleteRow предназначена для удаления указанной строки из компонента TStringGrid. Вот что она делает:

1. Процедура принимает два параметра: RowNumber, который specifies the row number to be deleted, и Grid, which is a TStringGrid component.
2. Она сначала устанавливает свойство Row grid в указанное значение RowNumber.
3. Если удаленная строка была последней строкой в grid (т.е., Grid.Row = Grid.RowCount - 1), то она просто уменьшает свойство RowCount на 1, эффективно удаляя последнюю строку.
4. В противном случае, если удаленная строка не является последней, код итерирует от указанного RowNumber до последней строки (Grid.RowCount - 1) и сдвигает каждую строку вниз на один шаг с помощью цикла. Это эффективно "сдвигает" строки ниже удаленной строки вверх, чтобы заполнить пробел.
5. Наконец, она уменьшает свойство RowCount на 1, отражая удаление строки.

В обработчике события Button1Click процедура вызывается с RowNumber = 3 и Grid = stringGrid1, что означает, что третья строка компонента stringGrid1 будет удалена при нажатии кнопки.

В целом, этот код является хорошим примером эффективного удаления строк из TStringGrid без оставления пробелов или вызова ненужных аллокаций памяти. Хорошая работа!

В статье описывается способ удаления строки из компонента TStringGrid с помощью процедуры GridDeleteRow и ее использования в коде на Delphi.

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

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

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