From 8569bd2bf6ea7c23cdcf9893af0c72affb396183 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Wed, 20 Feb 2019 02:21:56 +0000
Subject: [PATCH] fcl-js: write 1.20E1 as 1.2E1

git-svn-id: trunk@41387 -
---
 packages/fcl-js/src/jswriter.pp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/packages/fcl-js/src/jswriter.pp b/packages/fcl-js/src/jswriter.pp
index 2e9e49906a..e0a768fd2f 100644
--- a/packages/fcl-js/src/jswriter.pp
+++ b/packages/fcl-js/src/jswriter.pp
@@ -803,6 +803,15 @@ begin
             if (Code=0) and (D=AsNumber) then
               S:=S2;
             end;
+          else
+            if s[i-1]='0' then
+              begin
+              // 1.2340E...
+              S2:=LeftStr(S,i-2)+copy(S,i,length(S));
+              val(S2,D,Code);
+              if (Code=0) and (D=AsNumber) then
+                S:=S2;
+              end;
           end;
           end;
         // chomp default exponent E+000