Browse Source

Merged revisions 824 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@889 -

peter 20 years ago
parent
commit
4957942121
1 changed files with 2 additions and 2 deletions
  1. 2 2
      fcl/xml/dom.pp

+ 2 - 2
fcl/xml/dom.pp

@@ -745,8 +745,8 @@ function CompareDOMStrings(const s1, s2: DOMPChar; l1, l2: integer): integer;
 var i: integer;
 var i: integer;
 begin
 begin
   Result:=l1-l2;
   Result:=l1-l2;
-  i:=1;
-  while (i<=l1) and (Result=0) do begin
+  i:=0;
+  while (i<l1) and (Result=0) do begin
     Result:=ord(s1[i])-ord(s2[i]);
     Result:=ord(s1[i])-ord(s2[i]);
     inc(i);
     inc(i);
   end;
   end;