try
//Операторы1
except
//Операторы2
end
Выполняются операторы Операторы1. В случае возникновения исключительной ситуации управление передается на Операторы2. Если исключительных ситуаций не возникло, Операторы2 не выполняются никогда. При передаче управления на Операторы2 исключительная ситуация деактивирована. Для ее повторного возбуждения можно воспользоваться оператором возбуждения исключения без указания текстовой строки сообщения.
|
try
LObject.NeverTouch := True;
LObject.ExecuteCoolMethod; //если метод выполнен неудачно
except
LObject.NeverTouch := True; //установить флаг и ничего не сообщать пользователю.
end;
|
|
try
LObject.ExecuteCoolMethod; //если метод выполнен неудачно
except
LObject.Destroy; //удалить неудачный объект
raise; // продолжить обработку исключения.
end;
|