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;