try...except и try...finally

← →
Pavel__ (2005-08-01 02:52) [0]

Здравствуйте. А правильно ли использовать блок try...finally внутри блока try...except? Какие могут быть подводные камни?

Вопрос возник в связи с подобным кодом:

var SL :TStringList; begin ... try SL := TStringList.Create; try SL..... finally SL.Free; end; except on Exception do ...что то делаем, сообщение например об ошибке показываем end; ... end;

С уважением.

← →
Юрий Зотов © (2005-08-01 03:07) [1]

Если делать с умом, то все всегда будет правильно. Что касается конкретно этого кода - я в нем никаких подводных камней не нашел.

← →
Pavel__ (2005-08-01 03:21) [2]

2 Юрий Зотов

Спасибо.

Можно даже так:

try
...
try
{...код вызывающий искл. ситуацию...}
except
on E:Exception do begin
{обработка}
raise; {Передача исключания следующему обработчику}
end;
end;
...
except
end;

Может я гдето и ошибся - не судите строго

try...except и try...finally Найти похожие ветки