* also return 0 when reading an unsigned integer at the end of a file

git-svn-id: trunk@2156 -

rtl/inc/text.inc

@@ -1082,9 +1082,14 @@ Begin
       exit;
      ReadNumeric(f,hs);
    end;
-  val(hs,u,code);
-  If code<>0 Then
-   InOutRes:=106;
+   if (hs = '') then
+    u := 0
+   else
+    begin
+      val(hs,u,code);
+      If code<>0 Then
+        InOutRes:=106;
+    end;
 End;