Копирование области изображения и по-пиксельный перебор.

[Vova777]

Сообщение от chertovich

Любимаю ошибка тех, кто что-то хочет залезьь туда, куда не стоит. Ошибка доступа к памяти.
Вы смотрели мой исходник?

Я прямо сейчас его попробую скомпилировать, посмотрим по его скорости.
Ошибка на этой строке во фрагменте. Что такое может тут быть, причем пол кода с этим фрагментом выполняется, а потом вдруг ошибка.

      Image1.Canvas.Rectangle(xk - abb1, yk - abb2, xk + abb1, yk + abb2);
      Image2.Canvas.CopyRect(Rect(xk - 60, yk - 60, xk + 60, yk + 60), Image1.Canvas, Rect(xk - 60, yk - 60, xk + 60, yk + 60));
      for ipx:= 0 to xk + 60 do
        begin
        for ipy:= 0 to yk + 60 do
          //ошибка на строке снизу:
          if Image2.Canvas.Pixels[ipx, ipy] = clBlack then field[(xk - 60) + ipx, (yk - 60) + ipy]:= ab;
        end;

[chertovich]

Значит ошибка здесь:

field[(xk - 60) + ipx, (yk - 60) + ipy]:= ab;

Вообще, я не люблю особо разбираться в чужом коде) удачи.

[Vova777]

Сообщение от chertovich

Значит ошибка здесь:

field[(xk - 60) + ipx, (yk - 60) + ipy]:= ab;

Вообще, я не люблю особо разбираться в чужом коде) удачи.

в Вашем коде, я что-то про отладчик и BreackPoint не понял

[chertovich]

Сообщение от Vova777

в Вашем коде, я что-то про отладчик и BreackPoint не понял

Я о том, что в моем коде результат будет в глобальной переменной A, вы же не умеете смотреть в память компьютера? смотрите результат в отладчике или в Watch листе.