Преобразование битовой переменной в символьную строку

32-хfunction Val_sim: string;
16-тиfunction Val_sim(Kol:byte): string;

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

Функция преобразует первые - KOL бит строки в строку символов, содержащую символы вида '1' или '0', и выдает ее в качестве результата преобразования. В 32-х разрядной версии максимальное количество преобразуемых бит не превышает 255. В 16-ти разрядной версии если длина битовой переменной меньше значения - KOL, то результирующая символьная строка будет содержать количество символов, равное длине битовой переменной.

Пример преобразования битовой последовательности в символьную строку с целью вывода значения на экран приведен таблице:
32-х Var BitStr: TStr_Bit; {Объявление переменных}

…

Label1.Caption := BitStr.Val_Sim; {Индикация значений бит}

…

16-ти Var BitStr: PStr_Bit; {Объявление переменных}

…

Writeln (BitStr^.Val_Sim (26)); {Распечатка битовой переменной}

…