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

Delphi FAQ >> Алгоритмы

Функция на Delphi, которая проверяет, установлен ли бит (двоичная система счисления) в числе:

function IsBit(N: Longint; nBit: Byte): Boolean;
{N - число
 nBit - номер бита}
begin
  result := ((1 shl (nBit - 1)) and N) 0;
end;

Скажем нет пиратству — лицензионное программное обеспечение магазин — покупайте легальный софт.