From 1e410726ef3fbf0fe15342590dec01596acbdbd2 Mon Sep 17 00:00:00 2001 From: "rosenfield.albert" Date: Thu, 9 Oct 2008 23:30:23 +0000 Subject: [PATCH] Bugfix (regression): the value '-' was handled incorrectly when scanning for values looking like floating point stuff. --- source/helpers.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/helpers.pas b/source/helpers.pas index 8de632a4..bad7f73b 100644 --- a/source/helpers.pas +++ b/source/helpers.pas @@ -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