Замена битовой подстроки

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; {Объявление переменной}


BitStr.Replase (Dop, 9); {Вставка битовой последовательности}

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


BitStr^.Replase (Dop, 9); { Вставка битовой последовательности }