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          Лабораторные работы по программированию          Справочник




Нет комментариев.



Оставить комментарий:
Ваше Имя:
Email:
Антибот:  
Ваш комментарий: