Алгоритм открытия файла с обработкой возможной ошибки

Рисунок 7.4. Алгоритм открытия файла с обработкой возможной ошибки

Ниже приведен фрагмент программы, реализующий приведенный выше алгоритм открытия файла.

AssignFile(f,filename);

{$I-}

Append(f) // открыть для добавления

{$I+}

if IOResult<> 0 // ошибка открытия

then Rewrite(f); // открыть для записи

// здесь открыт существующий или новый файл