Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Установлен ли бит в числе?

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

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

function IsBit(N: Longint; nBit: Byte): Boolean;
{N - число
 nBit - номер бита}

begin
  result := ((1 shl (nBit - 1)) and N) <> 0;
end;


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