Библиотека подпрограмм обработки двоичных последовательностей | Копирование данных из битовой переменной в массив данных

Копирование данных из битовой переменной в массив данных

32-х	Procedure Val_array ( var Mas; Kol: Integer);
16-ти	procedure Val_array ( var Mas; Kol: word);

Kol – количество копируемых байт битовой переменной;
Mas – произвольная переменная.

Процедура пересылает первые - Kol байт битовой строки в массив - Mass . Если текущая длина строки не позволяет переслать - Kol байт, то недостающие данные дополняются нулями, и выполняется пересылка.

Пересылку можно выполнять в любой тип переменной integer, word, longint и т.д., что позволяет устанавливать в этих переменных необходимые значения битовых конфигураций.

Пример преобразования битовой последовательности ‘1011’ в целочисленную переменную приведен в таблице:

32-х Var i : integer; BitStr : TStr_bit; {Объявление переменных}
...
BitStr.Init_Sim(‘1011’) BitStr.Val_array ( i, SizeOf(i) ); {Установка 0,2 и 3 бита в числе i (13)}
...

16-ти Var i : word; BitStr : PStr_bit; {Объявление переменных}
...
BitStr^.Init_Sim(‘1011’) BitStr^.Val_array(i, SizeOf(i) ); {Установка 0,2 и 3 бита в числе i (13)}
...