Удаление произвольной строки в TStringGrid в Delphi: пошаговое руководство

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

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

Использование метода DeleteRow

Компонент TCustomGrid содержит защищенный метод DeleteRow, который позволяет удалить строку по индексу. Однако, поскольку метод защищен, его нельзя вызвать напрямую извне. Один из способов обойти это ограничение — создать класс-подтип TCustomGrid и выполнить приведение типа вашего TStringGrid к этому новому классу, после чего вызвать DeleteRow.

type
  TCustomGridAccess = class(TCustomGrid) end;

procedure DeleteGridRow(g: TCustomGrid; row: Integer);
begin
  TCustomGridAccess(g).DeleteRow(row);
end;

Этот метод работает, потому что в пределах того же модуля, где объявлен класс-подтип, защищенные члены становятся доступными.

Использование классовых помощников

Если вы используете достаточно новую версию Delphi, можно использовать классовые помощники, которые позволяют обращаться к защищенным членам класса без необходимости приведения типа.

type
  TCustomGridHelper = class helper for TCustomGrid
  public
    procedure DelRow(ARow: Integer);
  end;

procedure TCustomGridHelper.DelRow(ARow: Integer);
begin
  Self.DeleteRow(ARow);
end;

Теперь у TStringGrid появится публичный метод DelRow, который можно вызвать для удаления строки.

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

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

procedure DeleteRow(Grid: TStringGrid; ARow: Integer);
var
  i, j: Integer;
begin
  for i := ARow to Grid.RowCount - 2 do
    for j := 0 to Grid.ColumnCount - 1 do
      Grid.Cells[j, i] := Grid.Cells[j, i + 1];
  Grid.RowCount := Grid.RowCount - 1;
end;

Если вы работаете с объектами в ячейках вместо текстовых данных, можно ускорить процесс, переписывая только объекты.

procedure DeleteRowWithObjects(Grid: TStringGrid; ARow: Integer);
var
  i, j: Integer;
begin
  for i := ARow to Grid.RowCount - 2 do
    for j := 0 to Grid.ColumnCount - 1 do
      Grid.Objects[j, i] := Grid.Objects[j, i + 1];
  Grid.RowCount := Grid.RowCount - 1;
end;

Для удаления текущей строки вызовите функцию DeleteRow или DeleteRowWithObjects, передав в качестве аргумента индекс строки Grid.Row.

Заключение

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

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

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

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

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

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