[fpc-devel] Fix request

[Martin Schreiber]

Hi,
Please fix Mantis 10791 (ObjectBinaryToText broken for reals) and merge to 
fixes_2_2, it damages the form files. Suggestion: remove the wrong code.

Index: classes.inc
===================================================================
--- classes.inc    (revision 10339) 
+++ classes.inc    (working copy) 
@@ -1313,10 +1313,12 @@
         vaExtended: begin
             ext:=ReadExtended;
             Str(ext:1:20,S);// Do not use localized strings.
-            i:=length(S); 
-            while S[i]='0' do //1234.5678 is nicer than 
1.2345678000000000E+0003 
-              dec(i); 
-            SetLength(S,i); 
+// 
+// does not work 2008-02-08 mse 
+//            i:=length(S); 
+//            while S[i]='0' do //1234.5678 is nicer than 
1.2345678000000000E+0003 
+//              dec(i); 
+//            SetLength(S,i); 
             OutLn(S);
           end;
         vaString: begin

Thanks, Martin