Mail

В этот день много лет назад...
26 ноября. В 1718 году (306 лет назад) - Петр I издает указ "О назначении рынков в Санкт-Петербурге, о наблюдении чистоты торгующими съестными припасами и о ношении ими белых мундиров". По этому указу запрещается торговля вдоль больших улиц, поскольку "проезд по большой дороге от тесноты за многолюдством весьма труден". На городских рынках всем торговцам в мясном и рыбном рядах надлежит под страхом крупного штрафа носить белые мундиры. Пусть немного на военный манер, но Петр I все же продемонстрировал свое желание решать вопросы гигиены в своем невском "парадизе".

Turbo Pascal Documentation

Процедура BlockWrite

     Функция: Записывает одну или более записей из  перемен-
ной.
      Описание: ВlосkWritе(var f : файл; var буфф; счетчик  :
word [; результат : word ])
     Примечания: Параметр f представляет собой  нетипизован-
ную  файловую  переменную, "буфф" - любая переменная, "счет-
чик" выражение длиной в слово и "результат" - это также  пе-
ременая длиной в слово (т.е. имеет тип word).
     Данная процедура записывает записи, количество  которых
не превосходит числа, указанного в переменной "счетчик", на-
чиная с первого байта, занятого переменной "буфф".  Действи-
тельное  число полных записанных записей (меньшее или равное
значению переменной "счетчик") возвращается в необязательном
параметре "результат". Если этот параметр не задан, то в том
случае, когда число записанных записей не будет совпадать со
значением  переменной "счетчик", произойдет ошибка ввода-вы-
вода.
     Весь размер переданного блока не превышает  числа  бай-
тов,  определяемых  произведением значения переменной "счет-
чик" и длины записи,  указываемой  при  открытии  файла  (по
умолчанию  128).  Если это произведение превышает 65535 (64К
байта), то возникает ошибка.
     Параметр "результат" является необязательным. Он  рабо-
тает  следующим  образом. Если был передан весь блок, то при
возврате управления в параметре "результат" будет содержать-
ся то же значение, что и в переменной "счетчик". В противном
случае значение параметра "результат" будет меньше: до того,
как  успела  завершиться передача, диск переполнился. В этом
случае, если размер записи файла превышает единицу, то в па-
раметре "результат" возвращается число полных записанных за-
писей. Таким образом, возможная неполная остающаяся  послед-
няя запись не учитывается в параметре "результат".
     В результате выполнения  процедуры  ВlосkWritе  текущая
позиция  в файле продвигается на число записей, заданных пе-
ременной "результат".
     При использовании директивы компилятора {I-}  IОRеsult
будет  возвращать 0, если операция завершилась успешно и не-
нулевой код ошибки в противном случае.
     Ограничения: Файл должен быть открыт.
     Отличия: В версии 3.0 неполные  записи  считываются.  В
версиях 4.0 и 5.0 они отбрасываются.
     Прочее: См. также процедуру ВlосkWritе.
     Пример: См. пример для процедуры ВlосkRеаd.