[原创](现代Delphi 12指南):[Windows App开发]: try...finally的细节: Exit提前退出, 然后触发finally

[作者]
常用网名: 猪头三
出生日期: 1981.XX.XX
企鹅交流: 643439947
个人网站: 80x86汇编小站
编程生涯: 2001年~至今[共24年]
职业生涯: 22年
开发语言: C/C++、80x86ASM、Object Pascal、Objective-C、C#、R、Python、PHP、Perl、
开发工具: Visual Studio、Delphi、XCode、C++ Builder、Eclipse
技能种类: 逆向 驱动 磁盘 文件 大数据分析
涉及领域: Windows应用软件安全/Windows系统内核安全/Windows系统磁盘数据安全/macOS应用软件安全
项目经历: 股票模型量化/磁盘性能优化/文件系统数据恢复/文件信息采集/敏感文件监测跟踪/网络安全检测
专注研究: 机器学习、股票模型量化、金融分析

[序言]
在Delphi的异常与资源管理机制中, "try...finally"是最基础却又最关键的语法结构之一. 它确保了无论在代码块中是否发生异常、是否提前退出函数, "finally"部分的清理逻辑都能被可靠地执行. 在日常开发中, 常常需要在过程中使用诸如"TStringList"、"TFileStream"、"TMemoryStream"等临时对象, 并在逻辑完成后释放它们. 然而, 当逻辑中途遇到"Exit"、"Break"或"Continue"时, 很容易误以为"finally"不会执行. 本文通过一个简短的代码演示, 帮助你彻底理解: 即使在"try"代码块中提前"Exit", "finally"仍然会被执行, 以确保资源正确释放. 这不仅是Delphi语言设计的特性, 也是现代Delphi编程风格中稳定与安全的关键基础.

[代码演示]

procedure TForm1.Button19Click(Sender: TObject);
var
  sl_StockData : TStringList;

begin

  sl_StockData    := TStringList.Create;

  try
    if sl_StockData <> nil then
    begin
      Exit;
    end;

  finally
    sl_StockData.Free;
    ShowMessage('TStringList Free') ;
  end;

end;

[代码说明]
这段代码的核心是验证"try...finally"在"Exit"语句出现时的行为.

1. 对象创建
   首先通过"TStringList.Create"在堆上创建了一个"TStringList"实例, 并赋值给局部变量"sl_StockData".

2. 提前退出
   当判断"sl_StockData <> nil"成立时, 程序在"try"块中执行"Exit"语句. 按直觉来看, 似乎这会立即结束函数执行, 但实际上Delphi会先进入"finally"块, 执行其中的语句后才真正离开函数.

3. finally执行逻辑
   即便"Exit"在"try"内部被调用, 编译器仍然确保"finally"中的清理代码被触发.
   在本例中, "sl_StockData.Free"被正常执行, 随后调用"ShowMessage"显示提示信息"TStringList Free".

4. 执行顺序
   运行此代码后, 虽然在逻辑上"提前退出"了函数, 但仍然能看到弹出的"ShowMessage"对话框, 表明"finally"中的释放逻辑被执行.
   这说明Delphi在"Exit"、"Break"或异常抛出时, 都会在离开作用域前自动保证"finally"块的执行.

[总结]
在Delphi中, "try...finally"结构不仅是异常处理机制的一部分, 更是资源安全释放的核心保障.

* 当你在"try"块中调用"Exit"时, "finally"仍然会执行.
* 当你在"try"块中发生异常时, "finally"仍然会执行.
* 当你在"try"块中使用"Break"或"Continue"跳出循环时, "finally"同样会执行.

因此, 在现代Delphi 12的开发实践中, 任何涉及到对象、文件、句柄或内存资源的操作, 都应当放入"try...finally"结构中, 以确保无论逻辑如何分支或提前退出, 都能保证资源被正确释放. 在资源管理层面上, "try...finally"是Delphi最可靠的安全网.