浏览代码

fcl-css: fixed compile

mattias 3 年之前
父节点
当前提交
6a0e8feeba
共有 1 个文件被更改,包括 4 次插入4 次删除
  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;
   const TestNode: TCSSNode): TCSSSpecifity;
 var
+  {$IFDEF VerboseCSSResolver}
+  i: integer;
+  {$ENDIF}
   El: TCSSElement;
   C: TClass;
   AttrID: TCSSNumericalID;
-  {$IFDEF VerboseCSSResolver}
-  i: integer;
-  aValue: TCSSString;
   OldStringComparison: TCSSResStringComparison;
-  {$ENDIF}
+  aValue: TCSSString;
 begin
   Result:=CSSSpecifityInvalid;
   if anArray.Prefix<>nil then