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

made in programmersforum 1

Интенсив по 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? Количество строк может быть разное, поэтому сколько именно строк будет я не знаю. Вот и надо как-то определить и вытащить значение из самой последней ячейки.

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,row: integer;
begin
for row:=0to Form1.StringGrid2.RowCount — 1do
begin
ifTrim(StringGrid2.Rows[row].Text) = »then
      THackGrid(StringGrid2).DeleteRow(row);
end;
 for i:=0 to Form1.StringGrid2.RowCount — 1 do
 begin
  if Form1.StringGrid2.Cells[0,i] <> » then
  begin
   Form1.Label23.Caption:=Form1.StringGrid2.Cells[StringGrid2.ColCount — 1,Form1.StringGrid2.RowCount — 1];
  end;
 end;
end;