paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 02:50:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Initializa function result of FindValueKey when current element is nil

Browse Source 
git-svn-id: trunk@29607 -
This commit is contained in:
Marc Weustink 2015-02-02 20:24:34 +00:00
parent 05d38053f7
commit 7001a02ac6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-registry/src/xmlreg.pp
View File

@ -426,10 +426,10 @@ Var
Node : TDOMNode;
begin
Result:=Nil;
If FCurrentElement<>Nil then
begin
Node:=FCurrentElement.FirstChild;
Result:=Nil;
While (Result=Nil) and (Assigned(Node)) do
begin
If (Node.NodeType=ELEMENT_NODE) and (Node.NodeName=SValue) then