delphi - 在 Delphi 中禁用溢出检查

Question

这是一个后续问题，与我在 stackoverflow 上阅读的另一个问题上看到的答案有关。如果我希望禁用特定函数的溢出检查(根据 this question )，此代码是否会导致溢出检查在运行该函数后突然启用，即使它之前未在编译器选项或代码中启用？

{$OVERFLOWCHECKS OFF}
// function here
{$OVERFLOWCHECKS ON}

我是否需要将其与 IFOPT block (可能类似于 this 示例？)结合使用以将溢出检查返回到之前的状态(以免意外启用非调试版本的溢出检查)？或者两者不同，这就足够了吗？奖励:如果我确实需要 IFOPT，有条件地禁用溢出检查的具体语法是什么？

Answer 1

是的，无论之前是什么，您发布的代码段都会自动启用溢出检查。

这应该有效。如果您愿意，可以将 {$Q+} 和 {$Q-} 替换为 {$OVERFLOWCHECKS ON} 和 {$OVERFLOWCHECKS OFF} 分别。

{$IFOPT Q+}
  {$DEFINE OVERFLOW_ON}
  {$Q-}
{$ELSE}
  {$UNDEF OVERFLOW_ON}
{$ENDIF}
//
// Your code here
// 
{$IFDEF OVERFLOW_ON}
  {$Q+}
  {$UNDEF OVERFLOW_ON}
{$ENDIF}