فهرست منبع

* 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;