Перхват сообщения об ошибке!!!!

[chekanoff]

Доброго времени дня!!!
Подскажите как перехватить сообщене о том что файл не найден при отображении фоток!!!
Спасибо за помощь))))))

[GAGARIN-NEW]

а ты предварительно проверяй наличие файла функцией fileexists('путь к файлу') если он есть то true еcли нет то false

[Баламут]

try ... except

[Alar]

Обработка исключений в Delphi

В Delphi техника SEН реализуется с помощью блока try…except/finally…end. Общий формат этих блоков такой:
try
<код>
except
<что будет выполнено если будет исключение>
end
либо:
try
<код>
finally
<что будет выполнено в любом случае>
end
В втором случае видно что в цепочку обработчиков SEH будет добавлен пустой обработчик, а в первом случае в цепочку обработчиков будет добавлен указатель на блок except…end. В блоке, который следует после except можно обработать исключение, можно просто вывести сообщение об ошибке, а можно и ничего не делать. При возникновении ошибки в основном блоке управление сразу же передаётся коду, который находится в блоке except. Код, который находится после строки, которая вызвала исключение не выполнится. Если основной код слишком большой, и могут возникать различные ошибки, то можно с помощью блока on…do узнать какое именно исключение произошло.

Например:
   try
       d:=56/0;
       x:=round(d);
   except
       on EInvalidOp do
           ShowMessage(’деление на ноль’)
       else
           ShowMessage(’другая ошибка’);
   end;
Можно получить детальную информацию об исключении, объявив в блоке on…do переменную требуемого класса и потом её использовать, например:
   try
       d:=56/0;
       x:=round(d);
   except
       on Excp : EInvalidOp do
           ShowMessage(’ошибка под названием - ‘+Excp.Message)
       else
           ShowMessage(’Другая ошибка’);
   end;
Можно сгенерировать исключение с помощью оператора raise, например:
   type
       MyClass = class (Exception);
………
   begin
//more code
      raise MyClass.Create(’любой текст’);
или можно воспользоваться уже существующим классом, например
   raise EZeroDivide.Create(’текст’);

Информацию о классах исключений можно получить, набрав в справке Delphi «VCL exception classes» (там конечно не все, но для начала хватит).
Следует подметить, что ошибки можно обработать только в стандартных функциях Delphi, ошибки в API функциях нельзя отловить с помощью блоков try. У API функций есть свой способ узнать об ошибке или генерировать ошибки – это API функции Set/GetLastError.

[VVk]

попробуй на EInOutError
стандартный премер обработки:

on IO: EInOutError do
	begin	
		Case IO.errorcode of
			2: s:='Файл ''' +s+''' не найден;
			3: s:=ошибочне ымя файла''' +s+''''; 
			4: s:=слишком много открытых файлов; 
			5: s:= 'Файл ''' +s+''' не доступен'; 
			100: s:= 'Достигнут конец фада ''' +s+''''; 
			101: s:= 'Диск переповнений ''' +s+''''; 
			106: s:= 'ошибка ввода... ''' +s+'''';
		end;
		MessageDlg(s, mtWarning, [mbOk], 0);
	end;

или другие коды ошибок...