Работа с битами
Работа с битами
Работа с битами Есть два способа. Низкоуровневый подход обеспечивается логическими операциями : var I : integer; N : integer; // Номер бита в диапазоне от 0..SizeOf(TYPE)*8 - 1 I := I or (1 shl N); // установка бита I := I and not (1 shl N); // сброс бита I := I xor (1 shl N); // инверсия бита if (i and (1 shl N)) <> 0 then... // проверка установленного бита Высокоуровневый подход опирается на представление числа в виде множества: type TIntegerSet = set of 0..SizeOf(Integer)*8 - 1; var I : Integer; N : Integer; Include(TIntegerSet(I), N); // установили N-ный бит в 1 Exclude(TIntegerSet(I), N); // сбросили N-ный бит в 0 if N in TIntegerSet(I) then... // проверили N-ный бит
