Платные хостинги     Раскрутка сайта     Книги по программированию

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

- Как перехватить все исключения в определенном блоке и уничтожить их.P.S. С Новым Годом!

- :-)Поставить в самом начале блока трай в самом конце ексепт енд и все будет или работать или не работать.Не совсем понял вопроса.

- Но сообщения об ошибках все равно будут выводится!

- Разумеется, если запускать программу из Дельфи с включенной опцией Debugger Options > Language Exceptions > Stop on Delphi Exceptions. Запускай прогу либо вне среды разработки, либо отключи вышеуказаную опцию. Это сообщение отредактировал <Spawn> - 1.1.2005, 00:35

- deleted Это сообщение отредактировал shurick - 23.2.2005, 23:21

- Только при отладке.

- Можно сделать таким образом:procedure TForm1.FormCreate(Sender: TObject);begin Application.OnException := AppException;end;procedure TForm1.AppException(Sender: TObject; E: Exception);begin // do nothing or something showmessage('exception was destroyed');end;

- tryкод, который может выхвать исключенияexcept//сюда ничего не пишешьend;!!! Обрати внимание, что при запуске приложения в среде Delphi все равно исключения буду "всплывать". Я в таких случаях вывожу ярлык на рабочий стол.

- dsergey а можно просто это отключить в самих Дельфях: Tools->Debugger Options->Language Exceptions->Stop on Delphi Exceptions (убрать галочку)

- либо так :через applicatyioneventsпри этом сохранится лог с ошибкамиprocedure Tmainform.ApplicationEvents1Exception(Sender: TObject; E: Exception);var filename:string; logfile:textfile;begin// сохранение лога с ошибками filename:=changefileext('Error','.log'); assignfile(logfile,filename); if FileExists(filename)then append(logfile) else rewrite(logfile); writeln(logfile,datetimetostr(now)+':'+e.message); closefile(logfile);end; Добавлено @ 10:25 в этом методе подавляютсЯ сообщения об еррорах

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD