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

made in programmersforum 3

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

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

6th
Ноя

Удаление пустых строк в StringGrid с «поднятием» остальных

Posted by Chas under Пост-обзор

Возникла необходимость в удалении пустых строк в StringGrid, но чтобы оставшиеся «поднялись» наверх, т.е. как бы сдвинулись со своих позиций на -1 значение. Вот так я пробую:

procedure TForm1.Button7Click(Sender: TObject);
var
 row: integer;
begin
for row:=0to Form1.StringGrid1.RowCount — 1do
begin
ifTrim(StringGrid1.Rows[row].Text) = »then
  THackGrid(StringGrid1).DeleteRow(row);
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
var i,j: integer;
begin
for i:=1 to StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:=IntToStr(i)+IntToStr(j);
end;