* TDOMNodeList.GetCount speed up from alexx, fixes #6891

git-svn-id: trunk@3568 -

fcl/xml/dom.pp

@@ -959,6 +959,11 @@ function TDOMNodeList.GetCount: LongWord;
 var
   child: TDOMNode;
 begin
+  if not UseFilter then
+    begin
+      Result := Count;
+      exit;
+    end;
   Result := 0;
   child := node.FirstChild;
   while Assigned(child) do