try ... finally

← →
Урри (2003-02-04 12:53) [0]

Мастера, имеется:

try
StatementList1;
finally
StatementList2;
end;

Подскажите, пожалуйста, возможно ли определить в секции finally было ли исключение в StatementList1 или же я попал туда "нормальным" путем?

← →
Игорь Шевченко © (2003-02-04 12:54) [1]

Нет

← →
Anatoly Podgoretsky © (2003-02-04 13:03) [2]

Почему бы тогда не создать блок try except end?

← →
AGGRESSOR (2003-02-04 13:39) [3]

Правильно говорят, используй except, что-то вроде этого для твоего случая:

try
StatementList1;
StatementList2;
except
MsgBox("Error!");
StatementList2;
end;

← →
Anatoly Podgoretsky © (2003-02-04 13:49) [4]

Вот таких советов не надо.

← →
AGGRESSOR (2003-02-04 13:55) [5]

Да, это не всегда приемлимо, и зависит от ситуации, но частенько помагает. Например, завершение работы в винде. Для 2000 нужны привилегии, а потом ExitWindowsEx, а 98 их не понимает. Вот и делаю
try
set privileges...
ExitW...
except
ExitW...

try
a:= 1;
StatementList1;
a:= 2;
finally
if a = 1 then
StatementList2 // exception in StatementList1;
else
StatementList3;// no exceptions in StatementList1;
end;

Тоже хорошо и без лишней обработки исключения.

← →
Урри (2003-02-05 08:47) [8]

Разобрался, всем спасибо за помощь.

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