Выставление и сброс битов

SetWord - слово, которое необходимо установить. BitNum - номер бита, который необходимо выставить согласно определениям в секции const (Bit0, Bit1 и др...). GetBitStat возвращает Истину, если бит установлен и Ложь в противном случае.

{ Слово записывается следующим образом... }

{ Слово - 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }

{ Номер бита - 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0 }

Const

Bit0 = 1;

Bit1 = 2;

Bit2 = 4;

Bit3 = 8;

Bit4 = 16;

Bit5 = 32;

Bit6 = 64;

Bit7 = 128;

Bit8 = 256;

Bit9 = 512;

Bit10 = 1024;

Bit11 = 2048;

Bit12 = 4096;

Bit13 = 8192;

Bit14 = 16384;

Bit15 = 32768;

Procedure SetBit(SetWord, BitNum : Word);

Begin

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

End;

Procedure ClearBit(SetWord, BitNum : Word);

Begin

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

SetWord := SetWord Xor BitNum; { Переключаем бит }

End;

Procedure ToggleBit(SetWord, BitNum : Word);

Begin

SetWord := SetWord Xor BitNum; { Переключаем бит }

End;

Function GetBitStat(SetWord, BitNum : Word) : Boolean;

Begin

GetBitStat := SetWord And BitNum = BitNum { Если бит установлен }

End;

« Предыдущая статья		Следующая статья »