Delphi-Help

ReWrite

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

ReWrite

Описание

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.

Пример кода

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

Примечание

 

 

Авторизация



Счетчики