如何暂时禁用“返回值可能未定义”警告？

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

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

结果不可能是未定义的，因为Abort throws EAbort.

I tried:

• {$WARN 1035 Off}：显然这仅适用于某些特定错误（请参阅文档 http://docwiki.embarcadero.com/RADStudio/en/Warning_messages_%28Delphi%29)
• {$W-1035}: 根本不做任何事

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

编辑：我现在已经对此进行了质量控制#89744 http://qc.embarcadero.com/wc/qcmain.aspx?d=89744.

您无法全局禁用此警告，但您可以使用{$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}