diff options
| -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; |