[strbb]

Всем доброго времени суток.
Нужно найти различия между 2 изображениями, делаю так

Код:

1 2 3 4 5 6 7 8 9 10

var   b1,b2,b3: TBitmap;   x,y:word;          .... for x:=1 to b3.Width do     for y:=1 to b3.Height do       b3.Canvas.Pixels[x,y]:=b1.Canvas.Pixels[x,y] xor b2.Canvas.Pixels[x,y];   ....

Собственно, все "правильно", НО очень большое время выполнения кода.
Можно ли как либо XORить "по быстрее", чем быстрее - тем лучше

[Bargest]

метод через Pixels[x,y] это жутко медленно.
Используй bx.Scanline(i) - получишь указатель на массив байт (строка пикселей картинки). Один пиксель - 3 байта.