Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


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

2 procedure ReWrite ( var FileHandle : File {RecordSize ) ;
Описание
Процедура 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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия