jvcllaz: Merge change of official repo (PascalInterpreter, scientific notation).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7596 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/run/JvPascalInterpreter/JvInterpreterParser.pas

@@ -504,7 +504,13 @@ begin
         begin
           Ci := Token[I];
           if CharInSet(Ci, StConstE) then
-            IsScientificNotation := True;
+            // Scientific notation requires that before the E/e at least one digit
+            // is present, so we can only begin checking from the 2nd char onwards
+            if (I > 1) and
+              CharInSet(Ci, StConstE) and
+              CharInSet(Token[I-1], StConstSymbols10)
+            then
+              IsScientificNotation := true;
 
           if Ci = '.' then
             if Point then