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

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

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

Функция FilePos.

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

    Function FilePos(Var F) : Longint;

  • Описание:

    Возвращает текущую позицию указателя файла.

  • Замечания:

    Параметр F - файловая переменная. Если указатель текущей позиции файла находится в начале файла, то FilePos(F) возвращает нуль. Если указатель текущей позиции файла находится в конце файла, то есть, если Eof(F)=True, то значение FilePos(F) равно значению FileSize(F).

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

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

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

  • Пример:

    { Пример программы для функции FilePos }
    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.



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