Преглед изворни кода

* Fixed problem with uninitialized return value

git-svn-id: trunk@34145 -
joost пре 9 година
родитељ
комит
0dcfb90f13
1 измењених фајлова са 3 додато и 1 уклоњено
  1. 3 1
      packages/fppkg/src/fpxmlrep.pp

+ 3 - 1
packages/fppkg/src/fpxmlrep.pp

@@ -199,7 +199,9 @@ begin
   While (N<>Nil) and (N.NodeType<>TEXT_NODE) do
     N:=N.NextSibling;
   If (N<>Nil) then
-    Result:=N.NodeValue;
+    Result:=N.NodeValue
+  else
+    Result:='';
 end;