diff options
| author | Erich Eckner <git@eckner.net> | 2015-07-29 13:34:32 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-07-29 13:34:32 +0200 |
| commit | 79ea0c95754ef0b7ba05917ac68809c396995f09 (patch) | |
| tree | 87dcce5e904a3246dac4929252e1ce565d204e9b | |
| parent | 4a20e55ed3f722b3f66249a6e3c5c4d2ae457367 (diff) | |
| download | units-79ea0c95754ef0b7ba05917ac68809c396995f09.tar.xz | |
exprToFLoat versteht jetzt auch negative Zahlen ;-)
| -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 |