Функция FilePos()

Модуль WinCrt

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

Объявление:

Function FilePos(Var F) : Longint;

Режим:

Windows,  Protected,  Real

Замечание:

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

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

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

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

Пример:

{Пример программы для функций FilePos и FileSize и процедуры Seek}

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.