[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

[TOJluK]

передавай в процедуру TObject

Код:

procedure STR_GRD_WORK(sender:TOBject);
var i,j:integer;
begin
with (sender as TStringGrid) do
begin
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;
end;
end;

Ну, а в процедуру можно StringGrid передавать в цикле при помощи FindComponent

[666triffid666]

ммм а как будет выглядеть переход от одной таблицы к другой
у меня их 8 и эту процедуру (так просто ГАРАЗДО больше )
нужно применить в каждой
и результат с каждой потом в Edit 1-8 поместить

[TOJluK]

если каждому гриду соотв-ет свой эдит

Код:

procedure TForm.STR_GRD_WORK(grd:string);
var i,j,f,g:integer;
begin
f:=0;
g:=0;
with TStringGrid(FindComponent('StringGrid' + grd)) do
 begin
 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;
 end;
TEdit(FindComponent('Edit' + grd)).Text:=IntToStr(f)+','+IntToStr(g);
end;

вызывать так:

Код:

for i:=1 to 8 do 
 STR_GRD_WORK(IntToStr(grd));

должно работать