changed use of method TDOMNodeList.Length to TDOMNodeList.Count

most probable cause of http://bugs.freepascal.org/view.php?id=12549

git-svn-id: trunk@17191 -
This commit is contained in:
darius 2008-11-03 10:40:59 +00:00
parent 5745ce4a7c
commit 94f25c24bf
2 changed files with 2 additions and 2 deletions

View File

@ -647,7 +647,7 @@ begin
//CommitRevision
ListItem^.CommitRevision:=StrToInt(SubNode.Attributes.Item[0].NodeValue);
for i := 0 to SubNode.ChildNodes.Length - 1 do
for i := 0 to SubNode.ChildNodes.Count - 1 do
begin
ActNode := SubNode.ChildNodes.Item[i];

View File

@ -378,7 +378,7 @@ begin
ActionItem.CopyRev := '';
ActionItem.CopyPath := '';
for j := 0 to SubNode.ChildNodes.Length - 1 do
for j := 0 to SubNode.ChildNodes.Count - 1 do
begin
tmpNode := SubNode.ChildNodes.Item[j];