diff options
author | Erich Eckner <git@eckner.net> | 2016-01-29 08:44:37 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2016-01-29 08:44:37 +0100 |
commit | 8916479767e9c3a508a7a1bc3d04d19ac9bebe3a (patch) | |
tree | cbdd69a7e036c481c6637b428ae95391586f06ed | |
parent | 8e406ec976debaf8f0af6ae167d91f537f5fca20 (diff) | |
download | FilterBruteForce-8916479767e9c3a508a7a1bc3d04d19ac9bebe3a.tar.xz |
scientificToStr erzeugt nun auch abgetrennte Zehnerpotenzen richtig
-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;
|