我正在调试一个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.一旦你这样做,你将有责任释放你获得的一生的例外.