[Zo_Omer]

try except end не пашут. Собрался создать текстовый документ на не существующем диске, обхватил код этой конструкцией. После запуска выскочило сообщение runtime error 3 at *****. Значит перехват не сработал. Какие есть варианты?

[lmikle]

Значит та функция, которой ты создаешь/открывешь файл не генерирует исключение. Тогда, скорее всего, она возвращает код ошибки.

Кароч. Код в студию. Существует масса способов работы с диском. Надо конкретно смотреть что ты используешь.

[NumLock]

SysUtils убрал из uses

[Freeman]

Наоборот, нужно подключить SysUtils и пользоваться его функциями, вроде FileCreate и т. п. Если неохота, хотя бы включить "I/O cheching" в настройках компилятора. Хотя по умолчанию вроде и так включено.

[NumLock]

так будет понятнее:

Сообщение от Zo_Omer

try except end не пашут. Какие есть варианты?

SysUtils убрал из uses. верни назад.

[Thrasher]

Попробуй так

Код:

{$I-}
AssignFile(f,Filename);
reset(f)
{$I+}
if IOResult<>0 then 
     Writeln('Error at opening file!');