Процедура Seek

Основы программирования
Каждый профессионал когда-то был чайником. Наверняка вам знакомо состояние, когда “не знаешь как начать думать, чтобы до такого додуматься”. Наверняка вы сталкивались с ситуацией, когда вы просто не знаете, с чего начать. Эта книга ориентирована как раз на таких людей, кто хотел бы стать программистом, но совершенно не знает, как начать этот путь. Подробнее...

Процедура Seek в Паскале перемещает файловый указатель на заданную позицию. Синтаксис:

procedure Seek(var F : File; Pos : Int64);

Процедура устанавливает файловый указатель в файле F на запись, номер которой указан в параметре Pos. Номер первой записи в файле равен 0. Файл F может быть файлом любого типа, кроме текстового. Если файл F - это нетипизированный файл, размер которого не указан при вызове Reset или Rewrite, то его размер подразумевается равным 128.

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

Пример:

program seekproc;

var F    : File;
    i, j : LongInt;

//*******************************************************************
// ОСНОВНАЯ ПРОГРАММА
//*******************************************************************
begin
  //Создаём файл и заполняем его данными
  Assign(F, 'test.tmp');
  Rewrite(F);
  Close(F);

  Reset(F, Sizeof(i));

  //Открываем для чтения/записи
  for i := 0 to 10 do
    BlockWrite(F, i, 1);

  //Возвращаемся в начало файла
  Seek(F, 0);
  for i := 0 to 10 do
    begin
      BlockRead(F, j, 1);
      WriteLn(j);
    end;

  Seek(F, 7);
  BlockRead(F, j, 1);
  WriteLn(j);

  Close(F);

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты