delphi - 空的 Try/Finally block 有什么用途吗？

Question

我继承了一个庞大的代码库，其中充满了这样的结构:

              try
                 DoWhatever;
              finally
              end;

有时“DoWhatever”涉及一些控件的摆弄，而且通常是向数据库发送消息，并且在代码中很多情况下，finally block 中有某些内容。

但我的理解是，如果finally block 中没有任何内容，那么整个try...finally就毫无意义。该代码总体上非常嘈杂，因此我假设它只是 future 代码的占位符或以前代码的保留。 (代码中有很多占位符。)

我的理解是否正确，或者 Delphi 中是否有一些 secret 的双重虚张声势反转尝试...最终 block 我忽略了？ (这是 Delphi 2010。)

Answer 1

它没有功能目的——它对程序的运行时行为没有影响。当控制权离开try部分时，程序将跳转到finally部分，不执行任何操作，然后继续执行下一条指令(根据控制权如何到达finally语句)，就像try-finally block 没有执行一样根本没去过那里。唯一的区别是程序在 try-finally block 之前和之后花费了额外的时间来设置和清除堆栈中的控制结构。

作者可能有一个包含 try-finally block 的模板，但该模板的某些实例最终不需要任何清理代码。让代码符合一致的模式可能会使某些自动化任务变得更容易。

try-finally block 还可以提供一个方便的位置来放置断点，该断点在 protected 代码运行后触发，即使在发生异常或其他提前终止的情况下也是如此。

要找出为什么代码具有如此明显无用的构造，请询问以前的作者，或检查提交历史记录。