Procedure ReWrite (var F. File [; Recsize. Word]);
Windows, Real, Protected
Параметр F - змінна будь-якого файлового типу пов'язана із зовнішнім файлом, за допомогою Assign. RecSize - необов'язковий параметр, що визначає розмір блоку, який потрібно використовувати при передачі даних. Якщо RecSize опущений, прийнятий за замовчуванням розмір блоку в 128 байт.
Процедура ReWrite створює новий зовнішній файл з ім'ям, призначеним в змінної F. Якщо зовнішній файл з тим же самим ім'ям вже існує, то він видаляється, а на його місці створюється новий порожній файл. Якщо F вже відкритий, то він спочатку закривається, а потім знову створюється. Поточна позиція покажчика встановлюється на початок порожнього файлу.
Якщо змінної F було призначено порожнє ім'я, наприклад Assign (F, ''), то після звернення до ReWrite, змінна F буде ставитися до стандартного вихідного файлу (стандартний номер дескриптора = 1).
Якщо F - текстовий файл, то F відкривається тільки на запис. Після звернення до ReWrite, значення Eof (F) дорівнює True.
У режимі функція IOResult поверне 0, якщо операція була успішною, інакше, вона повертає відмінний від нуля код помилки.
begin
Assign (F. 'NEWFILE. $$$');
ReWrite (F);
WriteLn (F. 'Щойно створений файл з цим текстом всередині.');
Close (F);
end.
Код для вставки: . . . ГОСТ.
Хостинг надано компанією "Веб Сервіс Центр" за підтримки компанії "ДокЛаб"