Bugfix (regression): the value '-' was handled incorrectly when scanning for values looking like floating point stuff.

This commit is contained in:
rosenfield.albert
2008-10-09 23:30:23 +00:00
parent bee0edfabe
commit 1e410726ef

View File

@@ -1352,7 +1352,7 @@ begin
// Convert result to a floating point value to ensure
// we don't discard decimal digits for the next step
if StrNumber = '' then Result := 0
if (StrNumber = '') or (StrNumber = '-') then Result := 0
else Result := StrToFloat( StrNumber );
// Detect if the string was previously formatted by FormatByteNumber