Процедура Rewrite

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

Процедура Rewrite открывает файл для записи. Синтаксис:

  
procedure Rewrite(var F: file; L: LongInt);

procedure Rewrite(var F: file);

procedure Rewrite(var F: TypedFile);

procedure Rewrite(var F: Text);

Процедура Rewrite открывает файл F для записи. Файл F может быть файлом любого типа.

Если F - это нетипизированный или типизированный файл, то он открывается для чтения и записи.

Если F является нетипизированным файлом, то размер записи можно указать в необязательном параметре L. По умолчанию используется значение 128.

Если процедура Rewrite находит файл с тем же именем, что и F, то размер этого файла обрезается до нуля (то есть все данные из файла удаляются).

Если такой файл не найден, создается новый файл.

В отличие от Турбо Паскаль, Free Pascal открывает файл в режиме записи. Если он должен быть открыт в режиме чтения, то требуется дополнительный вызов процедуры Reset.

Общий доступ к файлам не принимается во внимание при вызове процедуры Rewrite.

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

Пример:

 
program rewriteproc;

var F : file of WORD;
    i : WORD = 32;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  Assign(F, 'words.dat');
  Rewrite(F);
  Write(F, i);
  Close(F);

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

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

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

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

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

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

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

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

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

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