这段代码中Finally 块中的语句是否仍然执行？

Question

finally 会阻塞执行吗？如果我通过出口； ？

procedure someProc;
begin
    Try
      Exit;
    finally
     do_something;
    end;
end;

Answer 1

是的，finally 块始终会执行，即使您在某处调用 Exit 也是如此。如果它们不总是被执行，它们就没有多大价值。

Answer 2

finally 子句将始终被执行，除非执行线程在执行 try 子句时进入非终止循环、无限期阻塞或异常终止。

相关文档指出（强调我的）：

try...finally 语句的语法是

<前><代码>尝试
语句列表1
最后
语句列表2
结尾

其中每个statementList是一个语句序列
以分号分隔。

try...finally 语句执行
statementsList1 中的语句（try 子句）。如果statementList1完成时没有引发异常，
执行statementList2（finally 子句）。如果在执行statementList1期间引发异常，
控制权转移到statementList2；一次语句List2
执行完毕，异常会重新引发。 如果致电
退出、中断或继续过程导致控制权离开
自动执行statementList1、statementList2。
因此，无论 try 子句如何终止，finally 子句始终都会执行。

Answer 3

一个快速测试应用程序可以很快回答这个问题。

program TestFinally;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  try
    WriteLn('Before exiting');
    Exit;
  finally
    WriteLine('In finally. If you see this, it was written after "Exit" was called');
    ReadLn;
  end;
end.

Answer 4

为了完整起见 - 如果执行 try..finally 块的进程或线程被 TerminateProcess/TerminateThread 终止，finally 块将不会执行。

例如，下面代码中的finally块将不会被执行。

o := TObject.Create;
try
  TerminateThread(GetCurrentThread, 0);
finally
  o.Free;
end;