Выделение битовой последовательности

32-хprocedure Copy ( Isx : TStr_Bit; Index, Count: Integer);
16-тиprocedure Copy ( Isx : PStr_bit; Index, Count: word);

Index    – позиция бита в битовой строке (0…длина битовой переменной);
Count    - размер выделяемой битовой последовательности;
Isx   - исходная битовая переменная.

Процедура копирует в текущую переменную Count  бит с позиции Index   из битовой переменной Isx.

Например, переменная Isx  содержит битовую последовательность вида (110100000111001100). После выполнения процедуры выделения последовательности бит длиной 5, начиная с бита 3 (для примера, приведенного в таблице), переменная - BitStr будет содержать битовую последовательность вида (10000).
32-х

Var BitStr, Isx : TStr_bit; {Объявление переменной}


BitStr.Copy (Isx, 3, 5); {Выделение битовой последовательности}

16-ти

Var BitStr, Isx: PStr_bit; {Объявление переменной}


BitStr^.Copy (Isx, 3, 5); { Выделение битовой последовательности }