Utilities.StrToFloat

Using str:="1.0E+3", StrToFloat procedure cannot detect optional "+" character, so conversion to float is wrong.

In Utilities.StrToFloat procedure;

   IF (s[p] = "d") OR (s[p] = "D") OR (s[p] = "e") OR (s[p] = "E") THEN
      INC(p); e := 0;
      IF s[p] = "-" THEN negE := TRUE; INC(p) ELSE negE := FALSE END;
      WHILE (s[p] = "0") DO INC(p) END;
      WHILE ("0" <= s[p]) & (s[p] <= "9") DO
         e := e * 10 + (ORD(s[p]) - 30H);
         INC(p);
      END;
      IF negE THEN y := y / Reals.Ten(e)
      ELSE y := y * Reals.Ten(e) END;
   END;

==> should be corrected as ( I think )

   IF (s[p] = "d") OR (s[p] = "D") OR (s[p] = "e") OR (s[p] = "E") THEN
      INC(p); e := 0;
      IF s[p] = "-" THEN negE := TRUE; INC(p)
      ELSIF s[p] = "+" THEN negE := FALSE; INC(p) (* <<<< *)
      ELSE
         negE := FALSE
      END;
      WHILE (s[p] = "0") DO INC(p) END;
      WHILE ("0" <= s[p]) & (s[p] <= "9") DO
         e := e * 10 + (ORD(s[p]) - 30H);
         INC(p);
      END;
      IF negE THEN y := y / Reals.Ten(e)
      ELSE y := y * Reals.Ten(e) END;
   END;