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

Question

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

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

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

我尝试过：

• {$WARN 1035 Off}：显然这仅适用于某些特定错误（请参阅文档）
• {$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}

Answer 2

我目前没有可用的 Delphi 编译器，但重新排列代码以删除 if..else 可能会使警告消失：

function TfrmNagScreen.Run: TOption;
begin
  if ShowModal <> mrOk then
    Abort;

  Result := TOption(rdgAction.EditValue);
end;

另请参阅 如何禁用 Delphi 中有关“返回值……可能未定义”的警告？。

Answer 3

您可以使用一个巧妙的技巧来愚弄编译器。如下定义库函数：

procedure Abort(var X);
begin
  SysUtils.Abort;
end;

然后您可以将函数编写为：

if ShowModal = mrOk then
  Result := TOption(rdgAction.EditValue)
else
  Abort(Result)

编译器认为您已写入 Result，因为它是 var 参数，并且它会停止发出警告。