Delphi disables alerts

Question

I have the following code in a Delphi 2007 application:

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; 

What causes this warning:

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

I understand the warning, but I don’t want to change the code, since I can get rid of the warning because {$ WARNINGS OFF} does not seem to work in this case?

Answer 1

From Delphi help:

The $ WARNINGS directive only works at the procedure or function level granularity. That is, you can surround entire procedures and functions with the $ WARNINGS directive, but not statement blocks within a procedure or function.