Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Функция FileSize.

  • Объявление:

    Function FileSize(Var F) : Longint;

  • Описание:

    Возвращает текущий размер файла.

  • Замечания:

    Параметр F - файловая переменная. FileSize(F) возвращает число компонентов в F. Если файл пустой, то FileSize(F) возвращает нуль.

    В режиме {I-} функция IOResult вернет нуль, если операция была успешна, иначе она вернет отличный от нуля код ошибки.

  • Ограничения:

    Не может использоваться для текстовых файлов. Файл должен быть открыт.

  • Пример:

    { Пример программы для функции FileSize }
    Uses WinCrt;
    Var F : File Of Byte;
    Size : LongInt;
    Begin
    { Get File name from command line }
    Assign(F, ParamStr(1));
    Reset(F);
    Size:=FileSize(F);
    WriteLn('Размер файла : ', Size, ' байт.');
    WriteLn('Установка указателя позиции на середину файла...');
    Seek(F, Size Div 2);
    WriteLn('Текущая позиция : ', FilePos(F));
    Close(f);
    End.



Вернуться к оглавлению справочника