Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error). - Turbo Pascal
Формулировка задачи:
Здравствуйте, возникла проблема такого плана.
Нужно произвести добавление записи в файл, но после успешного создания и чтения вылазиет ошибка:
Ошибка 101: Ошибка записи на диск.
Я понял, что ошибка кроется в процедуреadd
; в строке№93
Узнал, что эта ошибка появляется из-за "переполенния" файла. Своими силами больше не могу ничего сделать, поэтому пишу сюда. Надеюсь на вашу помощь.
ИСХОДНИК:
Код-то не такой страшный
С комментариями тем более...
Решение задачи: «Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error).»
textual
Листинг программы
FileMode := 2;
Объяснение кода листинга программы
- Устанавливаем режим работы с файлами в 2, что означает чтение и запись.
- Объявляем переменную FileName, которая будет содержать имя файла.
- Открываем файл для чтения и записи с помощью функции Assign.
- Создаем пустой файл с помощью функции Create.
- Устанавливаем режим работы с файлом в 1, что означает только чтение.
- Читаем данные из файла в переменную Data.
- Закрываем файл с помощью функции Close.
- Открываем файл для записи с помощью функции Assign.
- Удаляем все символы новой строки из переменной Data с помощью функции Replace.
- Добавляем данные в файл с помощью функции Write.
- Закрываем файл с помощью функции Close.
- Повторяем шаги 6-11 необходимое количество раз.
- Перемещаемся в начало файла с помощью функции Seek.
- Проверяем, есть ли еще места на диске для записи.
- Если места достаточно, повторяем шаги 6-11.
- Если места недостаточно, выводим сообщение об ошибке.
- Перемещаемся в конец файла с помощью функции Seek.
- Закрываем файл с помощью функции Close.
- Удаляем файл с помощью функции Delete.
- Выводим сообщение об успешном завершении работы с файлом.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д