Описание
Функция возвращает текущую позицию указателя в файле (файл должен быть предварительно открыт). Параметр Vf представляет собой файловую переменную, ассоциированную с файлом. Данная функция не может быть применена к текстовым файлам.
Пример var
Vf: File of Byte;
S : string;
Size, I: Integer;
begin
Randomize;
AssignFile(Vf, 'work.dat');
Rewrite(Vf); //создает файл work.dat for I:= 0 to 100 do
begin
Seek(Vf, I);
Write(Vf, I); //записывает в файл послед. чисел от 1 до 100 end;
Size:= FileSize(Vf); //определяет размер файла
Seek(Vf, random(Size)); { устанавливает указатель в произвольную позицию }
MessageDlg('Текущая позиция указателя: ' + IntToStr(FilePos(Vf)), mtInformation, [mbOk], 0);
...
CloseFile(Vf);
