Delphi World - Как обработать ошибку прежде, чем программа уведомит об этом пользователя

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Как обработать ошибку прежде, чем программа уведомит об этом пользователя

Программа для тех, кто хочет быть в курсе новостей о появлении новых вирусов. Каждый день присылает вам на компьютер новый вирус.

Для фильтрации, к примеру, EConvertError, вы можете создать собственный обработчик исключений:

Приблизительно так:

Объявите следующую процедуру в объекте вашей главной формы:

procedure MyException(Sender:TObject; E:Exception);

Затем делайте так:

procedure TMyForm.MyException(Sender:TObject; E:Exception);
begin
  if (E.ClassType.ClassName='EConvertError') then
  begin
    {как-то общаемся с пользователем по-поводу ошибки}
  end
  else
    {позволяем Delphi показать ошибку}
    Application.ShowException(E);
end;

Наконец, позвольте приложению воспользоваться вашим новым обработчиком исключений:

procedure TMyForm.FormCreate(Sender: TObject);
begin
  Application.OnException := MyException;
end;