Mail

В этот день много лет назад...
26 ноября. В 1971 году (53 года назад) - Законом СССР устанавливается минимальный размер заработной платы рабочих и служащих - 70 руб. в месяц, который официально останется неизменным в течение почти 20 лет.

Turbo Pascal Documentation

Функция FilePos

     Функция: Возвращает текущую позицию в файле.
     Описание: FilePos(f)
     Тип резльтата: Длинный целый (longint).
     Примечания: Параметр f представляет собой файловую  пе-
ременную.  Если  текущей  позицией является начало файла, то
функция FilePos(f) возвращает значение 0. Если текущей пози-
цией в файле является конец файла, то есть Еоf(f) возвращает
значение   Тruе,   то   значение,   возвращаемое    функцией
FilePos(f),  совпадает  со  значением, возвращаемым функцией
FileSizе(f) (размером файла).
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Ограничения: Эта функция не  может  использоваться  для
текстового файла. Файл должен быть открыт.
     Прочее: См. также процедуры FileSize, Seek.
     Отличия: Результат функции в версии 3.0 был целого  ти-
па.