Delphi 2007 - 对“要忽略的异常”列表进行编程操作

Question

我有一个应用程序在调用FormatDateTime 时偶尔会返回整数溢出。我不知道是什么情况触发了这种情况，尽管我发现提到了问题here 和here。

我目前的解决方法是包装函数并处理异常：

function FormatDateTimeEx (const FormatString : ANSIString ;
                                 DateTime     : TDateTime) : ANSIString ;
begin
try
    Result := FormatDateTime (FormatString, DateTime) ;
except
    Result := '???' ; 
    end ;
end ;

这解决了导致编译的可执行文件崩溃的问题，但如果我在 IDE 中运行程序时调试器没有因EIntOverflow 异常而中断，我也更喜欢它。我不想通过告诉 IDE 忽略 EIntOverflow 异常来做到这一点，因为这样它不会在其他情况下发生未捕获的整数溢出时中断（对吗？）。

是否有一种编程方式（编译时或运行时）告诉 IDE 在本地忽略异常类，以应对可能发生异常的情况，并且您已经知道并正在处理它？

Answer 1

是否有一种编程方式（编译时或运行时）告诉 IDE 在本地忽略异常类，以应对可能发生异常的情况，并且您已经知道并正在处理它？

没有。

您无法要求调试器忽略某些EIntOverflow 异常但不忽略其他异常。你要么全部忽略它们，要么一个都不忽略。您可以控制调试器中哪些异常中断的唯一方法是通过异常类。您不能要求调试器忽略程序某一部分的异常，但不能忽略另一部分。

坦率地说，在我看来，解决这个问题的正确方法是首先弄清楚为什么会触发这些异常。并做一些事情来防止它们发生。异常是代码中的错误的症状，您需要直接解决。

Answer 2

您无法控制调试器异常处理，但可以控制导致其中一些异常的编译器选项。 以下是如何在本地禁用编译器开关，然后返回之前的状态：

1) 初始化 - 在某个单元的开头某处，或者可能在单独的 *.inc 文件中。

{$IFOPT R+}
  {$DEFINE RangeCheckOn}
{$ENDIF}

您可以在此处保存编译器开关的初始（即在项目设置中设置）状态。 2）现在，用法：

{$R-}
  ...your code here with disabled switch...
{$IFDEF RangeCheckOn}
  {$R+}
{$ENDIF}

在这里您禁用开关，执行一些没有它的代码并在完成后将其返回到初始状态。

我正在使用这个技巧对 (U)Int64 进行一些位移操作，这会在触摸 MSB 时引发错误的 EIntOverflow 异常（XE2 实际存在的编译器错误，对于较新的版本不确定）。

但我同意之前的答案，您应该检查引发异常的真正原因。我建议您使用 FormatEx 版本，在出现异常时将记录参数值。因此，您可以跟踪导致异常的值并检查它是否是可重现的情况。

Answer 3

是否有一种编程方式（编译时或运行时）告诉 IDE 在本地忽略异常类，以应对可能发生异常的情况，并且您已经知道并正在处理它？

不在代码中，不。但是，可以使用断点在调试器中完成。

用两个断点包装受影响的代码：

function FormatDateTimeEx(const FormatString: AnsiString; DateTime: TDateTime): AnsiString;
begin // <-- breakpoint
  try
    Result := FormatDateTime (FormatString, DateTime) ;
  except
    Result := '???'; 
  end;
end; // <-- breakpoint

进入第一个断点的属性并启用忽略后续异常选项并禁用Break选项。

进入第二个断点的属性并启用处理后续异常选项并禁用Break选项。