Правила форума
FilePos (функция)Язык:
Русский
English
FilePos (функция)
Возвращает текущую позицию указателя файла.
Объявление
Function FilePos(Var F) : Longint;
Режим
Windows, Real, Protected
Замечания
Параметр F - файловая переменная. Если указатель текущей позиции файла находится в начале файла, то FilePos(F) возвращает нуль. Если указатель текущей позиции файла находится в конце файла, то есть, если Eof(F)=True, то значение FilePos(F) равно значению FileSize(F).
В режиме {$I-} функция IOResult вернет нуль, если операция была успешна, иначе она вернет отличный от нуля код ошибки.
Ограничения
Не может использоваться для текстовых файлов. Файл должен быть открыт.
См. также
Пример
Язык:
Русский
English
uses Crt;
var
F : file of Byte;
Size : LongInt;
begin
{ Get File name from command line }
Assign(F, ParamStr(1));
FileMode := 0;
Reset(F);
Size := FileSize(F);
WriteLn('Размер файла : ', Size, ' байт.');
WriteLn('Установка указателя позиции на середину файла...');
Seek(F, Size div 2);
WriteLn('Текущая позиция : ', FilePos(F));
Close(f);
end.
var
F : file of Byte;
Size : LongInt;
begin
{ Get File name from command line }
Assign(F, ParamStr(1));
FileMode := 0;
Reset(F);
Size := FileSize(F);
WriteLn('Размер файла : ', Size, ' байт.');
WriteLn('Установка указателя позиции на середину файла...');
Seek(F, Size div 2);
WriteLn('Текущая позиция : ', FilePos(F));
Close(f);
end.
::
::
::
