Delphi disable warnings fails
- by Alan Clark
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;
Which produces this warning:
[DCC…