paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 00:20:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

xmlstreaming: started reading collections, from Christian, bug #14695

Browse Source 
git-svn-id: trunk@22194 -
This commit is contained in:
mattias 2009-10-15 15:32:43 +00:00
parent 906e1ca74e
commit c973bbc6d5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/laz_xmlstreaming.pas
View File

@ -762,8 +762,8 @@ begin
CheckNode('collection');
FElementPosition:=0;
// go to node 'list'
FElement:=FElement.FirstChild as TDOMElement;
CheckNode('list');
if Assigned(FElement.FirstChild) and (FElement.FirstChild.NodeName='list') then
FElement:=FElement.FirstChild as TDOMElement;
end;
end;
end;