[too lame]

Нужно проверить матрицу на чётное количество единиц в столбцах и строчках.Написал,но можно ли их как-нибудь объединить,что бы не использовать 2 цикла?

Код:

  for i:=1 to 10 do
   begin
    buffer:=0;
    for j:=1 to 10 do
     begin                                      
      If StringGrid1.cells[i,j]='1' then    (чётность столбцов)
        inc(buffer);
     end;
    If buffer mod 2=1 then
    showmessage ('Error')


for i:=1 to 10 do
   begin
    buffer:=0;
    for j:=1 to 10 do
     begin                                      
      If StringGrid1.cells[j,i]='1' then      (чётность строчек)
        inc(buffer);
     end;
    If buffer mod 2=1 then
    showmessage ('Error')
     end;

[ART]

Если матрица квадратная, то во внутреннем цикле поменять местами i j и считать )

[Bargest]

Код:

If StringGrid1.cells[i,j]='1' then    (чётность столбцов)
        inc(bufferCell);
If StringGrid1.cells[j,i]='1' then    (чётность строк)
        inc(bufferStr);