ermittleMittelwert neu

1 files changed, 7 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index 718eb2c..2cea78d 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -474,6 +474,13 @@ begin
         end;
         continue;
       end;
+      if istDasBefehl('ermittle Mittelwert',s,bekannteBefehle,true) then begin
+        if not ermittleMittelwert(syntaxTest,s) then begin
+          aufraeumen;
+          halt(1);
+        end;
+        continue;
+      end;
       if istDasBefehl('skaliere',s,bekannteBefehle,true) then begin
         i:=findeWerte(s,nil,@wertes,@konturen,false);
         if i<0 then begin