| Описание |
Процедура 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
|
|
