|
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;
|
