| 32-х | procedure CopyAllBit ( Isx : TStr_Bit); |
| 16-ти | procedure CopyAllBit ( Isx : PStr_bit); |
Isx - исходная битовая переменная.
Процедура копирует в текущую переменную все биты из битовой переменной Isx.
Например, переменная Isx содержит битовую последовательность вида (110100000111001100). После выполнения процедуры переменная - BitStr будет содержать битовую последовательность вида (110100000111001100).
| 32-х |
Var BitStr, Isx : TStr_bit; {Объявление переменной} … BitStr.CopyAllBit (Isx); {Копирование битовой последовательности} … |
| 16-ти |
Var BitStr, Isx: PStr_bit; {Объявление переменной} … BitStr^.CopyAllBit (Isx); { Копирование битовой последовательности } … |