Удаление колонки в StringGrid

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

Автор: http://www.sources.ru

procedure GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);
var
  Column: Integer;
begin
  if DelColumn <= StrGrid.ColCount then
  begin
    for Column := DelColumn to StrGrid.ColCount - 1 do
      StrGrid.Cols[Column - 1].Assign(StrGrid.Cols[Column]);
    StrGrid.ColCount := StrGrid.ColCount - 1;
  end;
end;

Here is the translation of the content into Russian:

Процедура в Delphi (Pascal), которая удаляет столбец из компонента TStringGrid - типа таблицы для отображения табличных данных.

Обзор содержимого:

Подпись процедуры

процедура GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);

Процедура принимает два параметра: StrGrid (компонент TStringGrid) и DelColumn (индекс столбца, который нужно удалить).

Основной логик

1. Проверка валидности индекса столбца:

if DelColumn <= StrGrid.ColCount then

Это проверяет, является ли индекс столбца DelColumn в диапазоне доступных столбцов в таблице (StrGrid.ColCount).

1. Если индекс столбца валиден, то проходимся по оставшимся столбцам и перезаписываем их данные:

for Column := DelColumn to StrGrid.ColCount - 1 do
  StrGrid.Cols[Column - 1].Assign(StrGrid.Cols[Column]);

Эта циклическая конструкция начинается с столбца, указанного в DelColumn, и проходит до последнего столбца в таблице (StrGrid.ColCount - 1). Для каждого шага цикла мы перезаписываем данные текущего столбца в предыдущий столбец (уменьшая индекс на 1).

1. Обновление счетчика столбцов:

StrGrid.ColCount := StrGrid.ColCount - 1;

Это уменьшает свойство ColCount на 1, эффективно удаляя один столбец из таблицы.

Конец процедуры

end;

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

Если вы хотите сделать код более эффективным или проще для чтения, можно рассмотреть использование временной переменной для хранения данных последнего столбца и затем присваивать их предыдущему столбцу, а не проходить по всем столбцам. Вот пример:

процедура GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);
var
  LastColumn: TGridColumn;
begin
  if DelColumn <= StrGrid.ColCount then
  begin
    LastColumn := StrGrid.Cols[DelColumn];
    for Column := DelColumn + 1 to StrGrid.ColCount do
      StrGrid.Cols[Column - 1].Assign(StrGrid.Cols[Column]);
    StrGrid.ColCount := StrGrid.ColCount - 1;
    if Assigned(LastColumn) then
      FreeAndNil(LastColumn);
  end;
end;

В этом коде мы используем временную переменную LastColumn для хранения данных столбца, который удаляется, и затем присваиваем их предыдущему столбцу. Этоapproach avoids the need for an explicit loop and makes the code more concise.

Программа GridRemoveColumn удаляет выбранную колонку из StringGrid, перемещая содержимое оставшихся колонок на один шаг влево.

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

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

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