Delphi禁用警告失败

Question

我在Delphi 2007应用程序中有以下代码：

function TBaseCriteriaObject.RecursiveCount(
  ObjType: TBaseCriteriaObjectClass): integer;
var    
  CurObj: TBaseCriteriaObject;
begin
  result := 0;
{$WARNINGS OFF}
  for CurObj in RecursiveChildren(ObjType) do
    Inc(Result);
{$WARNINGS ON}
end;

产生此警告：

[DCC Warning] BaseCriteriaObject.pas(255): H2077 Value assigned to 'CurObj' never used

我理解警告但不想更改代码，因此我如何摆脱警告，因为{$ WARNINGS OFF}在这种情况下似乎不起作用？

Answer 1

来自Delphi帮助：

  

$ WARNINGS指令仅适用于   程序或功能级别   粒度。也就是说，你可以环绕   整个程序和功能   $ WARNINGS指令，但不是   一个语句块   程序或功能。