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

P.S. С Новым Годом!

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

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

Цитата(magician @ 31.12.2004, 15:02)

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

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

Это сообщение отредактировал(а) <Spawn> - 1.1.2005, 00:35

deleted

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

2magician:

Цитата

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

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

Можно сделать таким образом:

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
в этом методе подавляютсЯ сообщения об еррорах