Fix compilation on targets without floating point types

git-svn-id: branches/fixes_3_2@45866 -

rtl/inc/text.inc

@@ -2139,7 +2139,7 @@ var
   hs : string;
   code : ValSInt;
 begin
-  v:=0.0;
+  v:=0;
   if not CheckRead(f) then
     Exit;