Отправляет email-рассылки с помощью сервиса Sendsay

Delphi для профессионалов

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Октябрь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
24.10.2002
15:05:04
23:21:18
25
26
27
28
29
30
31
Автор
Ведущий

Статистика

8.943 подписчиков
-22 за неделю
←   Все выпуски   →

Delphi для профессионалов - Управление битами


Информационный Канал Subscribe.Ru
eServer.ru :: Хостинг без ограничений!
Рассылка: Delphi для профессионалов

Количество подписчиков: 13
Рассылка 'Delphi для профессионалов'
Управление битами

{******************************************
 Параметр TheBit считается в пределах 0..31
           (32 бита информации)
 ******************************************}

unit Bitwise;

interface

function IsBitSet (const val: longint; const TheBit: byte): boolean;
function BitOn    (const val: longint; const TheBit: byte): LongInt;
function BitOff   (const val: longint; const TheBit: byte): LongInt;
function BitToggle(const val: longint; const TheBit: byte): LongInt;

implementation

function IsBitSet(const val: longint; const TheBit: byte):Boolean;
begin
  Result := (val and (1 shl TheBit)) <> 0;
end;

function BitOn(const val: longint; const TheBit: byte):LongInt;
begin
  Result := val or (1 shl TheBit);
end;

function BitOff(const val: longint; const TheBit: byte):LongInt;
begin
  Result := val and ((1 shl TheBit) xor $FFFFFFFF);
end;

function BitToggle(const val: longint; const TheBit: byte):LongInt;
begin
  Result := val xor (1 shl TheBit);
end;

end.
Все вопросы присылайте по адресу: delphi-ask@igp.org.ua
Все ответы присылайте по адресу: delphi-reply@igp.org.ua
Все подсказки присылайте по адресу: delphi-hint@igp.org.ua
Со всем списком советов можно познакомиться по адресу: http://igp.org.ua/delphine/.
Наш проект Delphine можно найти по следующей ссылке: http://igp.org.ua/products/delphine/.

Заходите в наш форум: Форум Delphi-профессионалов. Адрес: http://igp.org.ua/cgi-bin/yabb/yabb.pl.
Здесь Вы найдете ответы на все Ваши вопросы!
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное