[killbit]

Всем привет.
Передо мной встала задача.
Из слова
01110101
1-нужный бит.
0-незначащий разряд.
Необходимо выбрать нужные биты и составить из них отдельный код.
Помогите пожалуйста.

[lmikle]

Непонятна задача в части "составить".
Выделить значение - наложить маску.

Код:

const
  cBit = 1; // 00000001
var
  I : Integer;
  B : Byte;
  Bt : Byte;
begin
  B := 117; // 01110101
  For I := 0 To 7 Do
    begin
      Bt := B and cBit; // значение правого бита текущего значения, I - его номер 0..7
      B := B shr 1; // сдвигаем на 1 вправо
    end;

[killbit]

Именно из этих нужных битов составить новое слово. То есть есть приведённый мной выше код в котором картину портят биты, которые просто не используются для вычисления. Мне нужно взять только используемые биты и из них получить слово. Если ещё точнее то в исходном слове лежит переменная в такой вот дурацкой кодировке, где есть биты, которые почему то не используются для вычисления. Надо их вычленить из кода в отдельную переменную.

[killbit]

Нашёл как можно сделать для данной ситуации. Получается
Tyhhff.code and $F0.
Shr 3;
То есть через чистое наложение маски.
Код на самом деле 32 разряда. Исходя из этого какой код я должен записать до слова begin чтобы всё зароботало

[lmikle]

Не понтно, что же тебе действительно надо сделать. Сбросить в 0 ненужные биты? Или убрать их вообще из данных (т.е. было 32 бита, не нужны, например, 8, после убирания остается 24)? Опиши задачу более детально.

Кстати, в принципе, ничто не мешает накладывать 32-разрядную маску за исключением того, что ее описывать не очень удобно...

[killbit]

Подробно выглядит так: есть код, состоящий из 32 разрядов. Для вычисления параметра используются разряды 9-14 и 16-18. Остальные для вычисления не используются. Соответственно нужно для правильного вычисления взять два диапозона разрядов и поставить их рядом и сместить в начало. Также 19 разряд знаковый. Результат должен получиться в дополнительном коде.