Разное
Облака / Clouds

The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>

time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: ReWrite
ReWrite
|
1 procedure ReWrite ( var FileHandle : TextFile ) ; 2 procedure ReWrite ( var FileHandle : File {RecordSize ) ; |
Процедура (Unit System)
|
Открывает текстовый или двоичный файл для записи
|
Описание:
|
Процедура 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 |