hedgewars/uFloat.pas
changeset 6443 23364a5fcc86
parent 6415 af2047bb4f70
child 6498 5678806aafca
--- a/hedgewars/uFloat.pas	Sat Nov 26 12:01:13 2011 -0500
+++ b/hedgewars/uFloat.pas	Sat Nov 26 21:12:23 2011 +0300
@@ -322,9 +322,9 @@
 str(z.Round, cstr);
 if z.Frac <> 0 then
    begin
-   str(z.Frac / $100000000:1:10, tmpstr);
+   str(z.Frac / $100000000, tmpstr);
    delete(tmpstr, 1, 2);
-   cstr:= cstr + '.' + tmpstr
+   cstr:= cstr + '.' + copy(tmpstr, 1, 10)
    end;
 if z.isNegative then cstr:= '-' + cstr
 end;