Mail

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

Turbo Pascal Documentation

Процедура RmDir

     Функция: Удаляет пустой подкаталог.
     Описание: RmDir(s : string)
     Примечания: Параметр s является  выражением  строкового
типа. Удаляется подкаталог с путем доступа, заданным строкой
s. Если путь доступа не существует,  является  непустым  или
если  он  задает  текущий католог, то происходит ошибка вво-
да-вывода.
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Прочее: См. также процедуры MkDir, ChDir, GetDir.
     Пример:

begin
   {I-}
{ получить имя каталога из командной строки }
RmDir(ParamStr(1));
if IOResult <> 0 then
    Writeln('Каталог удалить нельзя');
else
    Writeln('Каталог удален');