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 _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel