Accept negative sign before floats in FloatStr(), fixes bug #826

This commit is contained in:
Ansgar Becker
2008-10-25 11:59:41 +00:00
parent b4f4942509
commit c5dc9a25c4

View File

@ -1392,7 +1392,7 @@ var
begin
Result := '';
for i:=1 to Length(Val) do begin
if Val[i] in ['0'..'9'] then
if (Val[i] in ['0'..'9']) or ((i=1) and (Val[i]='-')) then
Result := Result + Val[i]
else if Val[i] = DecimalSeparator then
Result := Result + '.';