delphi – 我会在异常处理之后释放/销毁异常吗？

发布时间：2020-12-15 03:55:58 所属栏目：大数据来源：网络整理

导读：我正在调试一个delphi程序. except on e: TErrorTapeDrive do if e.errorCode = 1104 then if Assigned(indexDoneEvent) then indexDoneEvent; // other handling... // other handling...end; 我抓住了一个Excetion e并做我需要的.现在,当调试程序计数器到

我正在调试一个delphi程序.

except
    on e: TErrorTapeDrive do
        if e.errorCode = 1104 then
            if Assigned(indexDoneEvent) then
                indexDoneEvent;
        // other handling...
    // other handling...
end;

我抓住了一个Excetion e并做我需要的.现在,当调试程序计数器到达正下方的行时;如果我用光标悬停e.errorCode,我仍然可以看到它的值.我期望这是超出范围,最终被毁坏.

所以我的问题是：在异常处理之后我应该释放/销毁异常吗？

解决方法

升级后,运行时将占用异常.你不需要释放它们.

该异常在处理块的末尾被销毁,如该程序所示：

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  MyException = class(Exception)
  public
    destructor Destroy; override;
  end;

destructor MyException.Destroy;
begin
  Writeln('MyException.Destroy');
  inherited;
end;

procedure Main;
begin
  try
    raise MyException.Create('Boo');
  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.Message);
  end;
  Writeln('After try/except block');
end;

begin
  Main;
  Readln;
end.

其输出：

MyException: Boo
MyException.Destroy
After try/except block

虽然调试器可能仍然显示有关该异常已被释放的信息,但该行为是未定义的.编译器了解异常已经保留了范围,即使调试器对该事实无知.

如果你想让异常的生命周期延伸到处理它的except块之外,那么你需要调用AcquireExceptionObject.一旦你这样做,你将有责任释放你获得的一生的例外.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!