Есть кусок кода

[komarevsky]

Есть вот такой вот кусок кода:

 
...
var p1,p2: PByteArray;
...
p1:=bmp.ScanLine[i];
p2:=bmp.ScanLine[i+1];
...
if (p2[j]=clWhite) and (p2[j-1]=clBlack) and (p1[j]=clBlack) then ...

Так вот всё дело в том, что это условие всегда возвращает результат false, а почему не могу никак разобраться. Может кто знает? Подскажите пожалуйста

[Iceman]

ето задача? p1[j] = p2[j-1]

[Virtson]

значит картинка такая.. что комбинация не встречается

[komarevsky]

В картинке, нужно найти такой вот пиксель белого цвета, такой чтоб сверху над ним, и слева от него было по пикселю черного цвета.
В тестируемой картинке такой пиксель есть.
Возможно, просто надо условие не так писать. Допустим не clWhite, а что-нть другое.

[JTG]

Может не тут ошибка, а в цикле где-то? Или сканлайны снизу вверх считаются (есть же параметр "flip row order" в фотожопе например)

[komarevsky]

Дело в том, что уже при самой компиляции не выдаётся активная ошибка, а как сообщение внизу пишется что условие будет всегда возвращать false.
А что касается снизу-вверх, то там есть и такой пиксель, который соответствует этому условию, так что дело всё-таки в самом условии

[Sergey_nl]

Полагаю, дело в том, что clWhite - 32-разрядная константы, причём старшие байты ненулевые: clWhite=$FFFFFF
Сравнивая любое число размером в байт с $FFFFFF Delphi, видимо, приводит байт к 32 разрядам, дополняя нулями недостающее.
Отсюда делается вывод, что самое первое выражение

 if (p2[1]=$FFFFFF )

всегда будет давать false
Советую или сравнивать байт с 255, или использовать тройки байтов, если изображение 24-разрядное.

[komarevsky]

Спасибо! Действительно помогло.
Вместо clBlack нужно 0
Вместо clWhite нужно 255