Исправить ошибку FileNotFoundException - PascalABC.NET
Формулировка задачи:
Возникла такая проблема,скрин прикреплен. Ошибка такая
"System.IO.FileNotFoundException"
Решение задачи: «Исправить ошибку FileNotFoundException»
textual
Листинг программы
assign(f, 'input.txt'); //Подключение файла ввода
if not fileexists('input.txt') then rewrite(f)
else
begin
reset(f); //Открываем файл на дозапись
seek(f, filesize(f)); //Устанавливаем курсор в конец файла
end;
Объяснение кода листинга программы
- Подключение файла ввода -
assign(f, 'input.txt'); - Проверка наличия файла -
if not fileexists('input.txt') then rewrite(f) - Открытие файла на дозапись -
reset(f); - Установка курсора в конец файла -
seek(f, filesize(f));