Browse Source

fcl-css: fixed compile

mattias 2 years ago
parent
commit
6a0e8feeba
1 changed files with 4 additions and 4 deletions
  1. 4 4
      packages/fcl-css/src/fpcssresolver.pas

+ 4 - 4
packages/fcl-css/src/fpcssresolver.pas

@@ -609,14 +609,14 @@ end;
 function TCSSResolver.SelectorArrayMatches(anArray: TCSSArrayElement;
 function TCSSResolver.SelectorArrayMatches(anArray: TCSSArrayElement;
   const TestNode: TCSSNode): TCSSSpecifity;
   const TestNode: TCSSNode): TCSSSpecifity;
 var
 var
+  {$IFDEF VerboseCSSResolver}
+  i: integer;
+  {$ENDIF}
   El: TCSSElement;
   El: TCSSElement;
   C: TClass;
   C: TClass;
   AttrID: TCSSNumericalID;
   AttrID: TCSSNumericalID;
-  {$IFDEF VerboseCSSResolver}
-  i: integer;
-  aValue: TCSSString;
   OldStringComparison: TCSSResStringComparison;
   OldStringComparison: TCSSResStringComparison;
-  {$ENDIF}
+  aValue: TCSSString;
 begin
 begin
   Result:=CSSSpecifityInvalid;
   Result:=CSSSpecifityInvalid;
   if anArray.Prefix<>nil then
   if anArray.Prefix<>nil then