| 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); { Выделение битовой последовательности } … |