* The tag name may be followed by any whitespace char, not only #32 (Mantis #16906)

git-svn-id: trunk@15551 -

packages/fcl-xml/src/sax_html.pp

@@ -323,8 +323,11 @@ var
   DoIncJ: Boolean;
 begin
   Attr := nil;
-  i := Pos(' ', s);
-  if i <= 0 then
+  i := 1;
+  while (i <= Length(s)) and not (s[i] in WhitespaceChars) do
+    Inc(i);
+
+  if i = Length(s) then
     Result := LowerCase(s)
   else
   begin

packages/fcl-xml/src/sax_xml.pp

@@ -272,8 +272,10 @@ procedure TSAXXMLReader.EnterNewScannerContext(NewContext: TXMLScannerContext);
     DoIncJ: Boolean;
   begin
     Attr := nil;
-    i := Pos(' ', s);
-    if i <= 0 then
+    i := 1;
+    while (i <= Length(s)) and not (s[i] in WhitespaceChars) do
+      Inc(i);
+    if i = Length(s) then
       Result := LowerCase(s)
     else
     begin