Очистить ячейки в TStringGrid

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

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

 procedure TForm1.Button1Click(Sender: TObject);
 var
   i, k: Integer;
 begin
   with StringGrid1 do
     for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Cells[i, k] := '';
 end;

Простой и эффективный способ очистить ячейки в TStringGrid!

В этом коде описывается процедура, которая выполняется при клике кнопки Button1. Она использует два вложенных цикла: один для столбцов (i) и другой для строк (k), чтобы проитерировать каждую ячейку в таблице. Для каждой ячейки она устанавливает ее значение в пустую строку с помощью выражения Cells[i, k] := '';.

Эта процедура эффективна потому, что она напрямую доступится и модифицирует ячейки в таблице. Однако, если вы ищете более компактное решение или хотите рассмотреть другие варианты, вот альтернативный способ:

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.Clear;
end;

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

Выберите подходящий способ для своих нужд!

Процедура на Delphi, которая очищает ячейки в TStringGrid, удаляя все содержимое из каждой ячейки.

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

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