Как матрицу к примеру 256*256 сжать до 16*16!Именя матрицу с единичек и нолей - соответственно черных и булых пикселей! Нвпример несли черных больше 100б в 256*256 то ето 1 в 16*16!!!
пробовал встроеным цыклом внешний
for i:=1 to 16-1 do
for j:=1 to 16-1 do
Begin
for ImX:=1 to ImWidth-1 do
for ImY:=1 to ImHeight-1 do
Begin
if a[ImX,ImY]=1 then kb:=kb+1;//kb -количество черных пикселей
if kb>porog then b[i,j]:=0 else b[i,j]:=0; {porog макс знач черных точек в масиве}
end;
End;
Код вроде пашет, но при добавлении записи в файл во внутреннем цыкле
выдает ошибку!!!