diff options
Diffstat (limited to 'unit2.pas')
-rw-r--r-- | unit2.pas | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -959,8 +959,12 @@ begin exit;
end;
result:=floattostr(x*f);
- if length(result)-pos(decimalSeparator,result+decimalSeparator)>3 then
- delete(result,pos(decimalSeparator,result+decimalSeparator)+4,length(result));
+ if pos('E',result+'E')-pos(decimalSeparator,result+decimalSeparator)>3 then
+ delete(
+ result,
+ pos(decimalSeparator,result+decimalSeparator)+4,
+ pos('E',result+'E')-
+ pos(decimalSeparator,result+decimalSeparator)-4);
result:=result+' ';
end;
|