Как сложить непустые ячейки в StringGrid-e?

[artemavd]

Как сделать прогонку на проверку непустых значений по столбцу в StringGrid-e, и, например, если в столбце есть из 25 клеток 2 непустых, то сложить количество (!) этих ячеек, т.е. должно быть в ответе "2".?

[mihali4]

В цикле:

if StringGrid.Cells[i,j]>' ' then
counter:=counter+1;

Я не понял - это вопрос-издевка? Как можно такое не понимать?

[artemavd]

mihalic4, ну конечно не издевка. если бы я знал, то не спрашивал. Стыдно не спросить (с) .

Хм, что-то видимо я не так делаю. Код:

 
for x1:=0 to 25 do //25 ячеек в столбце
   begin
    if SG10.Cells[0,x1] > ' ' then
      begin
       counter:=counter + 1;
       SG10.Cells[0,27]:=IntToStr(counter);
      end;
   end;

Если заполнены две строчки, то выводит в ответ "0", а должно быть "2". В чем ошибка?

[XuTpbIu]

Я вот, честно говоря не понимаю как твой код работает. У тебя же 25 ячеек, то цикл должен быть от 0 до 24.

for x1:=0 to 24 do
begin
   if SG10.Cells[0,x1] <> ' ' then
      inc(counter);
end;
SG10.Cells[0,27]:=IntToStr(counter);

Так всё должно работать.

[artemavd]

XuTpbIu, попробовал ваш код, но ответ все равно неправильный. Если две заполенные строчки, то в ответе должно быть, когда я нажимаю на кнопку, "2", а показывается "1", потом нажимаю еще раз и в ответе уже "3". Где неправильно то?)

[XuTpbIu]

Всё понял у тебя просто не проинизиализированна переменная
Напиши сверху моего кода ещё:
counter := 0;

[artemavd]

Код:

  
for x1:=0 to 24 do
  counter:=0;
   begin
    if SG10.Cells[0,x1] <> '' then
       inc(counter);
       SG10.Cells[0,27]:=IntToStr(counter);
    end;

Так?

[XuTpbIu]

counter:=0;
for x1:=0 to 24 do
   begin
    if SG10.Cells[0,x1] <> '' then
       inc(counter);
       SG10.Cells[0,27]:=IntToStr(counter);
    end;

[artemavd]

XuTpbIu, вроде правильно теперь показывает) но есть маленькое "но" . При первом нажатии на кнопку показывается сначала "0", а когда второй раз на кнопку нажимаешь, то потом показывается правильно, а надо, чтобы сразу показывалось правильно и не приходилось нажимать второй раз на кнопку. Может инициализировать переменную надо в другом месте и где то выше?

[XuTpbIu]

counter:=0;
for x1:=0 to 24 do
  if SG10.Cells[0,x1] <> '' then
    Inc(counter);
SG10.Cells[0,27]:=IntToStr(counter);

У меня именно ЭТОТ код пашет. Проверь ещё раз. Ну всё. У меня рабочий день кончился - пора домой.