Mail

В этот день много лет назад...
30 апреля. В 1945 году (80 лет назад) - Бойцы 1-го стрелкового батальона 756-го полка, которым командует капитан С. А. Неустроев, устанавливают на крыше рейхстага красный флаг. В ночь на 1 мая по приказанию командира 756-го полка полковника Ф. М. Зинченко принимаются меры по водружению на здание рейхстага знамени, врученного полку Военным советом 3-й ударной армии. Группу бойцов возглавляет лейтенант А.П. Берест. Ранним утром 1 мая на скульптурной группе, венчающей фронтон здания, уже будет развеваться Знамя Победы: его водрузили разведчики сержанты Михаил Егоров и Мелитон Кантария. Уже давно нет в живых героев-разведчиков, а совсем недавно скончался и полковник Неустроев. Почти всем участникам водружения Знамени Победы будет присвоено высокое звание Героя Советского Союза, потом ветераны войны обратились с просьбой посмертно присвоить звание Героя Российской Федерации и Алексею Бересту.

Turbo Pascal Documentation

Функция FileSize

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

var
   f : file of byte;
begin
  { получить имя файла из командной строки }
  Assign(f, ParamStr(1));
  Reset(f);
  Writeln('Размер файла в байтах: ', FileSize(f));
  Close(f);
end.