Delphi技术问题：如何抛出静默致命异常及测试内存不足异常处理

场景说明 #

你提到有一个存于硬盘、持续增大的列表需要加载到内存处理，过程中可能触发EOutOfMemory异常，现在想在不真的耗尽内存的情况下，测试except块里的异常处理逻辑——这个需求非常实用，毕竟真去占满内存测试既麻烦又容易搞崩系统。

解决方案 #

其实很简单，你可以直接在代码里主动抛出EOutOfMemory异常，完全不需要等系统真的出现内存不足。Delphi的异常类支持直接实例化并抛出，能完美模拟真实的异常场景。

修改后的代码示例 #

你可以给函数加一个测试控制开关（比如常量、全局变量或者参数），测试模式下直接抛出异常，正常模式下执行真实加载逻辑：

implementation
uses sysutils;

// 测试开关：设为True时触发模拟异常，False时执行真实加载
const TEST_OUT_OF_MEMORY = True;

function loadit(var F: File);
begin
  Try
    if TEST_OUT_OF_MEMORY then
      raise EOutOfMemory.Create('模拟内存不足异常') // 主动抛出目标异常
    else
    begin
      { 这里放真实的加载列表代码 }
    end;
  except
    on E: EOutOfMemory do
    begin
      { 这里是你要测试的错误处理代码，现在可以直接触发验证了 }
      ShowMessage('捕获到内存不足异常：' + E.Message);
    end;
  end; // the try block
end;

补充提示 #

• 如果你想要更灵活的控制，也可以把测试开关改成全局变量或者函数参数，比如在测试界面加个按钮来切换状态，不用每次修改代码重新编译。
• 抛出异常时自定义的错误信息，能帮你快速区分是模拟异常还是真实的内存不足场景。
• 这种方式完全遵循Delphi的异常处理机制，except块会像处理真实异常一样执行你的逻辑，测试效果和真实场景完全一致。

内容的提问来源于stack exchange，提问作者Christian Martin