Во-первых, ты не делаешь инкремент CNT (неужели скопировать трудно? Правда, уважаемый Imikle перепутал нумерацию в Cells и вместо IF написал IN), во-вторых, ты в цикле выводишь нуль, в-третьих, т.к. ячейки могут быть пустыми, лучше писать так:
Код:
1 | if (Length(StringGrid1 . Cells[I, 0 ]) > 0 ) and (StrToInt(StringGrid1 . Cells[I, 0 ]) < 180 ) then Inc(Cnt);
|
К тому же что-то ты всё время меняешь условия: то "не превышает" (поэтому я поставил знак "меньше"), то "больше". Не суетись, а то решишь не ту задачку.