Delphi wyłączyć ostrzeżenia nie

Question

Mam następujący kod w aplikacji 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; 

która produkuje to ostrzeżenie:

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

Rozumiem ostrzeżenie, ale nie chcesz, aby zmienić kod , więc jak mogę się pozbyć ostrzeżenia, ponieważ {$ WARNINGS OFF} nie działa w tym przypadku?

Answer 1

od pomocy Delphi:

$ dyrektywa OSTRZEŻENIA działa tylko na procedury lub funkcji poziomie szczegółowości. Oznacza to, że można otoczyć całe procedury i funkcje przy pomocy dyrektywy $ WARNINGS, ale nie można ich używać w ramach procedury lub funkcji .