| 32-х | procedure Replace (Dop : TStr_Bit; Index: Integer); |
| 16-ти | procedure Replace (Dop : PStr_Bit; Index: word); |
Index – позиция бита в битовой строке (0…длина битовой переменной);
Dop - битовая переменная, содержащая последовательность бит для замены значений.
Процедура осуществляет замену бит текущей переменной, начиная с позиции Index, на биты переменной Dop.
В случае, когда биты переменной - Dop, заменяющие биты текущей переменной выходят за ее длину, то осуществляется увеличение длины текущей переменной (в 16-ти разрядной версии увеличение длины ограничено максимальным значением, задаваемым при инициализации объекта).
Например, переменная - BitStr содержит битовую последовательность вида (110100000111). После выполнения замены битовой подстроки на последовательность бит - Dop (0010101001), начиная с бита 9 (для примера, приведенного в таблице), переменная - BitStr будет содержать битовую последовательность вида (1101000000010101001).
| 32-х |
Var BitStr, Dop : TStr_bit; {Объявление переменной} |
| 16-ти |
Var BitStr, Dop: PStr_bit; {Объявление переменной} |