Установка позиции начала чтения из файла последовательности бит

32-хfunction SeekStr(Polog : longint): word;
16-тиfunction SeekStr(Polog : longint): word;

Polog   - номер первого бита, считываемого функцией - ReadStr.

Функция возвращает код успешности завершения операции и осуществляет установку текущей позиции в файле на битовый элемент с номером - Polog.

Пример вызова функции приведен в таблице:
32-х Var BitStr: TBitFile; Razmer : longint; {Объявление переменной}

…

BitStr.SeekStr(20000); {Установка позиции в файле}

…

16-тиVar BitStr: PBitFile; Razmer : longint; {Объявление переменной}

…

BitStr^.SeekStr(20000); {Установка позиции в файле}

…