delphi - 如何暂时禁用 "return value might be undefined"警告？

Question

我想在我的代码中禁用特定警告(W1035)，因为我认为编译器对此警告是错误的:

function TfrmNagScreen.Run: TOption;
begin
  if ShowModal = mrOk then
    Result := TOption(rdgAction.EditValue)
  else
    Abort
end;

结果不可能是未定义的，因为 Abort 会抛出 EAbort。

我尝试过:

• {$WARN 1035 Off}:显然这仅适用于某些特定错误(请参阅 Documentation )
• {$W-1035}:什么也不做

我知道我可以在项目选项中全局关闭警告，或者使用 {$WARNINGS OFF}，但这不是这里的目的。

编辑:我现在已将其质量控制为 #89744 .

Answer 1

您无法全局禁用此警告，但可以使用{$WARN NO_RETVAL OFF}在本地禁用此警告。

{$WARN NO_RETVAL OFF}
function TfrmNagScreen.Run: TOption;
begin
  if ShowModal = mrOk then
    Result := TOption(rdgAction.EditValue)
  else
    Abort
end;
{$WARN NO_RETVAL ON}