Установка бита в единицу

function BitOn(const val: longint; const TheBit: byte): LongInt;
{©Drkb v.3(2007): www.drkb.ru}
begin
 Result := val or (1 shl TheBit);
end;

Автор ответа: s-mike
Взято из http://forum.sources.ru

procedure SetBit(SetWord, BitNum: Word);

begin

 SetWord := SetWord or BitNum; { Устанавливаем бит }

end;

http://delphiworld.narod.ru/
DelphiWorld 6.0

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Установка определенного бита в слове
Возвращает AWord с установленным битом номер ABit (c 0 по 15) в значение 1,
если AState = TRUE или 0, если AState = FALSE.
Стоит заметить, что в функцию передается именно номер бита, а не маска.
Проверка на правильный номер не производится.
Зависимости: System
Автор: Григорий Ситнин, <a href="mailto:gregor@gregor.ru">gregor@gregor.ru</a>, Москва
Copyright: Григорий Ситнин, 2003
Дата: 8 июля 2003 г.
***************************************************** }

function SetBit(AWord: word; ABit: byte; AState: boolean = true): word;
begin
 if AState then
  Result := AWord or (1 shl ABit)
 else
  Result := AWord and (not (1 shl ABit));
end;
Пример использования:
{$APPTYPE CONSOLE}
program test;
uses Bits; // В модуле Bits описана функция SetBit
var
 z: word;
 i: integer;
 s: string;
begin
 z := 0;
 z := setbit(z, 0); // 0000000000000001
 z := setbit(z, 2); // 0000000000000101
 z := setbit(z, 9); // 0000001000000101
 z := setbit(z, 14); // 0100001000000101
 z := setbit(z, 15); // 1100001000000101
 s := '';
 for i := 15 downto 0 do
  s := s + inttostr(Ord(CheckBit(z, i)));
 writeln('value: ', z, ' dec = 1100001000000101');
 writeln('result: ', s);
 z := $FFFF;
 z := setbit(z, 0, false); // 1111111111111110
 z := setbit(z, 2, false); // 1111111111111010
 z := setbit(z, 9, false); // 1111110111111010
 z := setbit(z, 14, false); // 1011110111111010
 z := setbit(z, 15, false); // 0011110111111010
 s := '';
 for i := 15 downto 0 do
  s := s + inttostr(Ord(CheckBit(z, i)));
 writeln('value: ', z, ' dec = 0011110111111010');
 writeln('result: ', s);
end.

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...