summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2016-01-29 08:44:37 +0100
committerErich Eckner <git@eckner.net>2016-01-29 08:44:37 +0100
commit8916479767e9c3a508a7a1bc3d04d19ac9bebe3a (patch)
treecbdd69a7e036c481c6637b428ae95391586f06ed
parent8e406ec976debaf8f0af6ae167d91f537f5fca20 (diff)
downloadFilterBruteForce-8916479767e9c3a508a7a1bc3d04d19ac9bebe3a.tar.xz
scientificToStr erzeugt nun auch abgetrennte Zehnerpotenzen richtig
-rw-r--r--unit2.pas8
1 files changed, 6 insertions, 2 deletions
diff --git a/unit2.pas b/unit2.pas
index edd6b70..eb2f2b6 100644
--- a/unit2.pas
+++ b/unit2.pas
@@ -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;