|
III. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ФАЙЛАМИ
1. Основные функции и процедуры для работы с файлами
Функция FilePos( var Vf ): LongInt;
Модуль: System
Описание
Функция возвращает текущую позицию указателя в файле (файл должен быть предварительно открыт). Параметр 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);
end;
[Вернуться к содержанию]
|
Книги-online