Exit

← →
Dmitry_177 (2007-05-06 22:55) [0]

есть примерно такой алгоритм:
try ... if .. then Exit; ... finally ... end;
Так вот посмотрев в отладчике, при вызове Exit функция вылетает, даже не выполнив то что находится в finally. Может есть какя-нибудь другая функция вместо Exit, которая так же выходит из функции, но перед этим выполнив то что находится в finally?

← →
McSimm © (2007-05-06 23:01) [1]

после Exit блок finally выполняется.

← →
{RASkov} © (2007-05-06 23:01) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
try
ShowMessage("First");
Exit;
ShowMessage("Midle");
finally
ShowMessage("End");
end;
end;
Не видно только Midle..... и это правильно.

← →
Dmitry_177 (2007-05-06 23:04) [3]

странно то что в отладчике строки в finally пролетают..

возможно они были исключены оптимизатором.

Abort. Тогда несомненно будет выполнено то, что находится в finally ... end

Exit Найти похожие ветки