From 8916479767e9c3a508a7a1bc3d04d19ac9bebe3a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 29 Jan 2016 08:44:37 +0100
Subject: scientificToStr erzeugt nun auch abgetrennte Zehnerpotenzen richtig

---
 unit2.pas | 8 ++++++--
 1 file 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;
 
-- 
cgit v1.2.3