equal
deleted
inserted
replaced
310 var tmpstr: shortstring; |
310 var tmpstr: shortstring; |
311 begin |
311 begin |
312 str(z.Round, cstr); |
312 str(z.Round, cstr); |
313 if z.Frac <> 0 then |
313 if z.Frac <> 0 then |
314 begin |
314 begin |
315 str(z.Frac / $100000000:1:15, tmpstr); |
315 str(z.Frac / $100000000:1:10, tmpstr); |
316 delete(tmpstr, 1, 2); |
316 delete(tmpstr, 1, 2); |
317 cstr:= cstr + '.' + tmpstr |
317 cstr:= cstr + '.' + tmpstr |
318 end; |
318 end; |
319 if z.isNegative then cstr:= '-' + cstr |
319 if z.isNegative then cstr:= '-' + cstr |
320 end; |
320 end; |