paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 12:10:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: write 1.20E1 as 1.2E1

Browse Source 
git-svn-id: trunk@41387 -
This commit is contained in:
Mattias Gaertner 2019-02-20 02:21:56 +00:00
parent 8ee668ad05
commit 8569bd2bf6
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-js/src/jswriter.pp
View File

@ -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