Извините, что вcтреваю, но зачем Assign?

tf: TextFile;

{$I-}
Reset(tf,'C:\temp.out');
{$I+}
If IOResult <> 0
then // Не открыт
else // Открыт

Rewrite - то же самое. Аррend'у почему-то нужен assign.


P.S. Всегда был в этом уверен, только что полез в справку и не нашел упоминаний об этом. Но работает еще с ТР: у меня даже в шаблон это забито :-)

P.P.S.
Кстати, try..except эти функции не ловятся. Только через IOResult. Очень уж они старые. Хотя, не исключено, что их переписали "на новый лад".

Это сообщение отредактировал(а) кварк - 20.12.2004, 14:35