Установка бит переменной в “1” состояние

32-хProcedure Init_1 (Razm: Integer);
16-тиProcedure Init_1;

Razm  – количество устанавливаемых элементов битовой переменной.

В 32Х разрядной версии осуществляется установка текущего размера строки и запись во все элементы битового массива “1” бит. В 16ти разрядной версии осуществляется установка текущей длины переменной, равной максимально возможной длине переменной, после чего осуществляется запись во все элементы битового массива “1” бит.

Пример создания битовой последовательности из 306 “1” бит приведен в таблице.
32-х Var BitStr: TStr_Bit; {Объявление переменной}
Begin
BitStr := TStr_Bit.Create; {Выделение памяти}
BitStr.Init_1 (306); {Установка значений бит переменной}
BitStr.Free; {Освобождение памяти}
End;
16-ти Var BitStr: PStr_Bit; {Объявление переменной}
Begin
BitStr := New(PStr_Bit,Init(306,512)); {Выделение памяти}
BitStr^.Init_1; {Установка значений бит переменной}
Dispose(BitStr,Done); {Освобождение памяти}
End;