Программирование на Delphi и не только Установлен ли бит в числе? | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы Функция на Delphi, которая проверяет, установлен ли бит (двоичная система счисления) в числе: function IsBit(N: Longint; nBit: Byte): Boolean; {N — число  nBit — номер бита} begin   result := ((1 shl (nBit — 1)) and N) 0; end; Скажем нет пиратству — лицензионное программное обеспечение магазин — покупайте легальный софт.

Программирование на Delphi и не только Как установить бит в числе? | Программирование на Delphi и не только

Delphi FAQ >> Алгоритмы Процедура на Delphi SetBit устанавливает указанный бит в числе procedure SetBit(var N: Longint; nBit: Byte); {N — число  nBit — номер бита} begin   N := ((1 shl (nBit — 1)) or N); end; Сейчас музыка mp3 легко ищется в Интернете.