diff options
| author | Erich Eckner <git@eckner.net> | 2015-07-27 14:56:48 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2015-07-27 14:56:48 +0200 |
| commit | 31b1073b05e2759a09ba9cbb5f32c8e9a00cbd37 (patch) | |
| tree | afa82973213c93dfcf192226517a48656af7affc /lowlevelunit.pas | |
| parent | fed2c32e7166a65e87d1afb3faff12075dcd7789 (diff) | |
| download | units-31b1073b05e2759a09ba9cbb5f32c8e9a00cbd37.tar.xz | |
binoppos in lowlevelunit.pas beachtet nun auch '^'
Diffstat (limited to 'lowlevelunit.pas')
| -rw-r--r-- | lowlevelunit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lowlevelunit.pas b/lowlevelunit.pas index 8fc6fa0..8708768 100644 --- a/lowlevelunit.pas +++ b/lowlevelunit.pas @@ -396,7 +396,7 @@ begin result:=0; repeat result:=result+max(1,pos(op,copy(s,result+1,length(s)-result))); - until ((result>1) and not (s[result-1] in ['+','-','*','/','(','E','e'])) or (result>length(s)) or (s[result]<>op); + until ((result>1) and not (s[result-1] in ['+','-','*','/','(','E','e','^'])) or (result>length(s)) or (s[result]<>op); if (result>length(s)) or (s[result]<>op) then result:=0; end; |