Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 9:35 PM
Начало » Статьи » Работа с файлами

Функция FilePos
Функция 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;

Категория: Работа с файлами | Добавил: Admin (2006-12-17)
Просмотров: 1113 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: