Seek, процедура
Синтаксис
procedure Seek(var F: File; RecordNumber: LongInt);
Описание
Процедура Seek перемещает позицию файла на запись номер RecordNumber. Seek не
является настоящей процедурой.
Ошибки
Советы и приемы
- Для текстового файла процедура Seek неприменима. Если требуется изменить
позицию в текстовом файле, используйте Windows API:
// Перемещение на позиций в текстовом файле, обозначенную байтовым // значением. В описании процедуры SetlnOutRes смотрите ту же // процедуру с обработкой ошибок. Предполагаем, что буфер файла // пуст. procedure TextSeek(var F: TextFile; Pos: Longlnt); begin SetFilePointer(TTextRec(F).Handle, Pos, nil, File_Begin); end;
- Начало файла имеет номер записи 0.
- Если F - нетипизированный файл, размер записи устанавливается при открытии файла с помощью процедур Reset или Rewrite.
Пример
// Переход на начало файла. Seek(F, 0); // Переход в конец файла. Seek(F, FileSize(F));
Смотрите также
Функции FilePos, IOResult.Учебник по языку Pascal Лабораторные работы по программированию Справочник
Нет комментариев. Оставить комментарий: |