tWerte.findeZweitdominantestenPunkt exportiert

1 files changed, 11 insertions, 0 deletions

diff --git a/epost.lpr b/epost.lpr
index e0cefcb..5282a15 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -528,6 +528,17 @@ begin
         aufraeumen;
         halt(1);
       end;
+      if istDasBefehl('finde zweitdominantesten Punkt in',s,bekannteBefehle,true) then begin
+        i:=findeWerte(s,nil,@wertes,@konturen,false);
+        if i<0 then begin
+          aufraeumen;
+          halt(1);
+        end;
+        if wertes[i].findeZweitdominantestenPunkt(syntaxTest,inf) then
+          continue;
+        aufraeumen;
+        halt(1);
+      end;
       if istDasBefehl('finde Maximum von',s,bekannteBefehle,true) then begin
         i:=findeWerte(s,nil,@wertes,@konturen,false);
         if i<0 then begin