Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];
Внизкак работать с битами отдельно из одного байта? Найти похожие ветки
← →
pav74 © (2006-05-15 18:37) [0]ктонибуть может подсказать чайнику как работать с битами отдельно из одного байта? как получить доступ к отдельным битам? зараннее спасибо
Павел
← →
Ega23 © (2006-05-15 18:42) [1]shl, shr, and
← →
MetalFan © (2006-05-15 18:55) [2]
function IsBitOn (Value: Integer; Bit: Byte): Boolean;
begin
Result := (Value and (1 shl Bit)) <> 0;
end;
function TurnBitOn (Value: Integer; Bit: Byte): Integer;
begin
Result := Value or (1 shl Bit);
end;
function TurnBitOff (Value: Integer; Bit: Byte): Integer;
begin
Result := Value and not (1 shl Bit);
end;
← →
Германн © (2006-05-16 01:25) [3]И ещё раз о своём, любимом варианте:
TMyBits = (Bit0,Bit1,Bit2,Bit3,Bit4,Bit5,Bit6,Bit7);
var
MyBitsOfByte : TMyBits;
MyBite : Byte absolute MyBitsOfByte;
begin
MyBite:=...;
if Bit1 in MyBitsOfByte then ...
P.S.
Когда-то утверждалось, что оператор in "гораздо лучше в попугаях, чем операторы сдвига". Поскольку используют инструкцию TEST.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c