Как удалить выделенную запись из TStringGrid

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

Автор: MBo

procedure TForm1.Button3Click(Sender: TObject);
var
  i,j: Integer;
begin
  j:=SG1.Row; // строка с выделением
  SG1.Rows[j].Clear;
  for i:=j to SG1.RowCount-2 do
    SG1.Rows[i].Assign(SG1.Rows[i+1]);
  SG1.RowCount:=SG1.RowCount-1;
end;

Here is the translation of the text into Russian:

Код, который вы предоставили, является частью приложения Delphi и предназначен для удаления выбранной строки из компонента TStringGrid с именем SG1. Вот разбивка того, что код делает:

1. Он получает индекс текущей выбранной строки (j) с помощью SG1.Row.
2. Затем он очищает содержимое выбранной строки, вызывая метод Clear для соответствующего объекта TStringGridRow.
3. Далее он смещает все строки ниже удаленной строки вверх на одну позицию, присваивая каждую строку предыдущей строке (используя цикл, который начинается с выбранной строки и продолжается до последней строки).
4. Наконец, он корректирует общее количество строк в гриде (RowCount) уменьшая его на 1.

Альтернативное решение может быть использовать метод DeleteRow компонента TStringGrid, который предназначен для этой цели:

procedure TForm1.Button3Click(Sender: TObject);
begin
  SG1.DeleteRow(SG1.Row);
end;

В этом случае вам не нужно ручной смещать строки или корректировать количество строк. Метод DeleteRow будет заботиться о этих задачах за вас.

Обратите внимание, что если вы хотите удалить конкретную строку по ее индексу (а не обязательно текущую выбранную), вы можете передать желаемый индекс строки в качестве аргумента для DeleteRow, например:

procedure TForm1.Button3Click(Sender: TObject);
begin
  SG1.DeleteRow(2); // Удалить третью строку
end;

В этом примере третья строка (индекс 2) будет удалена.

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

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

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

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