Раздел: Стандартные функции Паскаля

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