IPB

> Seek (процедура)
Чат
Форум
Загрузка...
 

Язык:
Русский
English

 Seek (процедура)


Перемещает текущий указатель позиции файла на определенный компонент.

Объявление

 Procedure Seek(Var F; N : Longint);

Режим

Windows, Real, Protected

Замечания

F - переменная любого файлового типа за исключением текстового, и N - выражение типа Longint. Указатель позиции файла F перемещается на номер компонента N. Номер первого компонента файла равен нулю. Чтобы расширить файл, вы можете передвинуть указатель на один компонент за последний компонент в файле. То есть, оператор Seek(F, FileSize(F)) перемещает текущий указатель позиции файла на конец файла.

В режиме {$I-} функция IOResult вернет 0, если операция была успешна, иначе, она вернет отличный от нуля код ошибки.

Ограничения

Не может быть использована на текстовых файлах. Файл должен быть открыт.

См. также

Пример

Язык:
Русский
English


 { Пример программы для функций FilePos, FileSize и процедуры Seek }

uses Crt;

var
  F    : file of Byte;
  Size : LongInt;

begin
 { Get File name from command line }
  Assign(F, ParamStr(1));
  FileMode := 0;
 Reset(F);
  Size := FileSize(F);
 WriteLn('Размер файла : ', Size, ' байт.');
 WriteLn('Установка указателя позиции на середину файла...');
 Seek(F, Size div 2);
 WriteLn('Текущая позиция : ', FilePos(F));
 Close(f);
end.
 
 К началу страницы 
Тэги: Seek
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"