Справочник функций и процедур Delphi: ReWrite

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

ReWrite
Процедура
Открывает текстовый или двоичный файл для записи System unit
  
1 procedure ReWrite ( var FileHandle : TextFile ) ;

2 procedure ReWrite ( var FileHandle : File {RecordSize ) ;

Google  
 
Описание
Процедура ReWrite открывает файл, указанный в FileHandle для записи.

Перед использованием Reset, чтобы назначить файл в FileHandle вы должны использовать AssignFile.

Если файл не существует, то он будет создан.

Если файл уже существует, содержание будет потеряно, и новые данные добавятся в начало.

Используйте Write или WriteLn для записи в файл после этого выполняется ReWrite.

Версия 1

Используется для текстовых файлов.

Версия 2

Она для двоичных файлов. Дополнительное значение RecordSize используется, чтобы отменить заданный по умолчанию 128-байтовый размер записи для двойных файлов (нетипизированных). Для таких файлов может использоваться только BlockRead и BlockWrite.
Похожие команды
Append  Открывает текстовый файл, для добавления записей в файл (добавляет в конец файла)

AssignFile  Связывает дескриптор файла с бинарным или текстовым файлом

CloseFile  Закрывает открытый файл

File  Определяет типизированный или нетипизированный файл

Reset  Открывает текстовый файл для чтения, или двоичный файл для чтения/записи

TextFile  Объявляет типа файл для того, чтобы сохранить строки текста

 
Пример кода : Запись и чтение строк текста в\из текстового файла
var
  myFile : TextFile;
  text   : string;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запись нескольких известных слов в этот файл
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');

  // Закрытие файла
  CloseFile(myFile);

  // Переооткрытие файла в режиме только для чтения
  Reset(myFile);

  // Показ содержимого файла
  while not Eof(myFile) do
  begin
    ReadLn(myFile, text);
    ShowMessage(text);
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;
Hello
World
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook