paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 03:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

changed use of method TDOMNodeList.Length to TDOMNodeList.Count

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazsvnpkg/svnclasses.pas
View File

@ -647,7 +647,7 @@ begin
//CommitRevision //CommitRevision
ListItem^.CommitRevision:=StrToInt(SubNode.Attributes.Item[0].NodeValue); 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 begin
ActNode := SubNode.ChildNodes.Item[i]; ActNode := SubNode.ChildNodes.Item[i];

2
components/lazsvnpkg/svnlogform.pas
View File

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