Установка бит переменной в состояния, определяемые строкой символов

32-хprocedure Init_Sim(Ust :string);
16-тиprocedure Init_Sim(Ust :string);

Ust   – строка, содержащая “1” и “0” символы.

Процедура устанавливает элементы поля данных битовой переменной в состояния, определяемые строкой символов. Длина битовой переменной становится равной длине символьной строки Ust.

Если для установки значений в массиве бит будут использованы символы, отличные от рекомендуемых (“1” и “0”), то сообщение об ошибке не будет выработано, а для установки значений массива будет принят во внимание младший разряд использованных символов.

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