binoppos in lowlevelunit.pas beachtet nun auch '^'

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;