Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Авг

Удаление и вставка строки в StringGrid

Posted by micher under Delphi

Необходимо, чтобы можно было вставить и удалить строку в нужном месте.

konsul_81

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



procedure TForm1.Button_delClick(Sender: TObject);

var

  i,j: Integer;

begin

  j:=StringGrid1.Row;

  if (j = 1) and (StringGrid1.RowCount <= 2) then

   begin

    with StringGrid1 do

     for i:= 0 to ColCount - 1 do Cells:= '';

    exit; // не удаляем последнюю строку чтобы не потерять фиксированной

   end;

  StringGrid1.Rows[j].Clear;

  for i:=j to StringGrid1.RowCount-2 do

    StringGrid1.Rows.Assign(StringGrid1.Rows);

  StringGrid1.RowCount:=StringGrid1.RowCount-1;

end;

Вставка строки:

procedure SGInsertRow(SG: TStringGrid; NewRow: Integer);

var

  i: Integer;

begin

  if NewRow < 0 then

    NewRow := 0; // либо 1, задайте нужное вам поведение

  with SG do

  begin

    RowCount := RowCount + 1;

    if NewRow < RowCount - 1 then

    begin

      for i := RowCount - 1 downto NewRow + 1 do

        Rows.Assign(Rows);

    end;

    Rows[NewRow].Clear;

  end;

end;
 procedure TForm1.Button_insClick(Sender: TObject);

begin

 SGInsertRow(StringGrid1,StringGrid1.Row); //Вставляет перед выделенной ячейкой

 // SGInsertRow(StringGrid1,StringGrid1.Row + 1); //Вставляет после выделенной ячейки

end;