Удаление строки из TStringGrid

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

Автор: MBo
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Удаление строки из StringGrid

Удаляет из StringGrid указанную строку, сдвигая остальные.

Зависимости: Grids
Автор:       Борис Новгородов (MBo), mbo@mail.ru, Новосибирск
Copyright:   MBo
Дата:        27 апреля 2002 г.
***************************************************** }

procedure SGDeleteRow(SG: TStringGrid; RowToDelete: Integer);
var
  i: Integer;
begin
  with SG do
  begin
    if (RowToDelete >= 0) and (RowToDelete < RowCount) then
    begin
      for i := RowToDelete to RowCount - 2 do
        Rows[i].Assign(Rows[i + 1]);
      RowCount := RowCount - 1;
    end;
  end;
end;

Классический снIPPет на Delphi!

Процедура SGDeleteRow, написанная МBo (Борисом Новгородовым), удаляет указанную строку из контрола TStringGrid. Вот подробное описание, что код делает:

Зависимости: Процедура зависит от единицы Grids.

Автор и авторские права: Автор - МBo (Борис Новгородов), а авторские права принадлежат МBo.

Анализ кода:

1. Процедура принимает два параметра:
   • SG: Объект TStringGrid, на котором выполняется операция.
   • RowToDelete: Целое число, представляющее номер строки для удаления.
2. Код проверяет, существует ли указанная строка (RowToDelete >= 0) и находится ли она в диапазоне валидных строк (RowCount). Если обе условия истинны, процедура продолжает с удалением строки.
3. Цикл проходит от строки для удаления (RowToDelete) до последней строки (RowCount - 1).
4. В каждом шаге цикла код присваивает значения следующей строки (Rows[i + 1]) текущей строке (Rows[i]). Это эффективно сдвигает все строки вниз на один шаг.
5. После завершения цикла свойство RowCount уменьшается на 1, чтобы отразить удаленную строку.

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

Хотя данный код работает, более эффективный подход - использовать метод DeleteRow контрола TStringGrid:

procedure SGDeleteRow(SG: TStringGrid; RowToDelete: Integer);
begin
  if (RowToDelete >= 0) and (RowToDelete < RowCount) then
    SG.DeleteRow(RowToDelete);
end;

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

В статье описывается процедура SGDeleteRow, которая удаляет указанную строку из TStringGrid, сдвигая оставшиеся строки вниз.

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

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

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