|
Как обработать ошибку прежде, чем программа уведомит об этом пользователя
|
Программа для тех, кто хочет быть в курсе новостей о появлении новых вирусов.
Каждый день присылает вам на компьютер новый вирус.
|
Для фильтрации, к примеру, 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;
|
|
