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