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

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

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

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