Mail

В этот день много лет назад...
30 апреля. В 1185 году (840 лет назад) - Несмотря на случившееся тогда затмение, князь новгород-северский Игорь вместе с братом Всеволодом выступил в поход против половцев, или, как сказал автор "Слова о полку Игореве", "тогда въступи Игорь князь в злат стремень и поеха по чистому полю. Солнце ему тьмою путь заступаше; нощь, стонущи ему грозою, птичь убуди; свист зверин въста; збися Див, кличет верху древа - велит послушати земли незнаеме, Волзе, и Поморию, и Посулию, и Сурожу, и Корсуню, и тебе, тьмутораканьскый болван!". Да только разгромили половцы войско русское, князей в полон взяли, Ярославна зарыдала, "тоска разлияся по Руской земли, печаль жирна тече средь земли Рускыи".

Turbo Pascal Documentation

Процедура Truncate

     Функция: Усекает размер файла до текущей позиции в фай-
ле.
     Описание: Тruncate(f)
     Примечания: Параметр f является файловой переменной лю-
бого типа. Все записи после текущей позиции в файле f удаля-
ются и текущая  позиция  в  файле  становится  концом  файла
(функция Еоf(f) принимает значение Тrue).
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Ограничения: Файл f должен быть открыт.
     См. также процедуры Seek, Reset.