2 M.A.D.M.A.N. ай-ай-ай! А если элементы таблицы будут меньше нуля?
В листинге поменять max:=0 на max:=strtoint(stringgrid1.cells[0,0] (в общем на логически 1-й элемент таблицы)
__________________
Хорошо написанная программа не требует документации
ICQ 9-184-668.
|