Вопрос по bitwise if'у

[Figaro72]

Доброго времени суток.

Около десятка лет не использовал дельфи, сейчас понадобилось передать код на плюсы, нет проблем. Но возник по исходникам Delphi:

if x and (1 shl (7-i)) = 1 shl (7-i) then //x=6, i [0...7]

вопрос: что эта за проверка?

[Аватар]

Проверяются биты байта и условие выполняется если i-тый бит равен 1. Нумерация битов слева направо от 0 до 7

[Figaro72]

Сам уже разобрался в приоритете операций... Это был код студента млин..