[666triffid666]

Требуется сделать подпрограмму кот проверяла бы значения ячеек таблиц
Дайте ссыку как правильно создать свою подпрограмму
и как сделать чтобы цикл
типа :

Код:

for i:= 1 to 4 do
  begin
  for j:= 1 to 4 do
  begin
    if cells[i,j]='0' then f:=f+1
  else
  if cells[i,j]='1' then g:=g+1
  end;
  end;
  if (f=0) and (g>0)  then begin Edit2.Text:='1'

Admin: Не забываем про теги!

Проверял последовательно все таблицы
т.к. пока он проверяет только 1 через
with stringgrid* do