paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FPSpreadsheet: Fix incorrect detection of numeric strings beginning with 'E' as valid numbers (https://forum.lazarus.freepascal.org/index.php/topic,68953.msg534081)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9487 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-10-18 14:06:08 +00:00
parent 7bdff78242
commit c9d4d9f48b
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -4648,7 +4648,8 @@ begin
end;
// Check for a "number" value (floating point, or integer)
if TryStrToFloat(AValue, number, AFormatSettings) then
// BUT: val() (and TryStsrToFloat) assumes that a string beginning with 'E' is a valid number
if not (AValue[1] in ['E', 'e']) and TryStrToFloat(AValue, number, AFormatSettings) then
begin
if (soAutoDetectCellType in FOptions) then begin
if isPercent then

4
components/fpspreadsheet/source/common/fpsutils.pas
View File

@ -1785,8 +1785,8 @@ begin
end;
{@@ ----------------------------------------------------------------------------
Converts a string to a floating point number. No assumption on decimal and
thousand separator are made.
Converts a string to a floating point number. No assumptions on decimal and
thousand separators are made.
Is needed for reading CSV files.
-------------------------------------------------------------------------------}