Согласие на обработку персональных данных.

15.12.2018
Новая задача Как преобразовать байт в килобайт.

05.12.2018
Новые видео и статья Параграфы и выравнивание текста в HTML.

01.12.2018
Новый выпуск журнала Автоматизация и программирование.

26.11.2018
Новые видео и статья Функция Concat.

25.11.2018
Новые видео и статья Справка в Lazarus.



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

Процедура 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 Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...
Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

Яндекс.Метрика