diff options
| -rw-r--r-- | matheunit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/matheunit.pas b/matheunit.pas index 9823391..9525fe3 100644 --- a/matheunit.pas +++ b/matheunit.pas @@ -468,7 +468,7 @@ begin neg:=startetMit('-',s); cbv:=false; for i:=1 to length(s) do - cbv:=cbv or not (s[i] in ['0'..'9','.',',','e','E']); + cbv:=cbv or not (s[i] in ['-','0'..'9','.',',','e','E']); if not cbv then result:=strtofloat(s) else if not kvs.extract(s,result) then begin if st then result:=1 |