Основы языка Delphi


    8b693973     

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



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


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

AssignFile(f,filename);

{$I-}

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

{$I+}

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

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

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




Содержание  Назад  Вперед