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



             

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



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





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

AssignFile(f,filename);

{$I-}

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

{$I+}

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

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

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












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