epostunit.pas: tLLWerte.findeZweitdominantestenPunkt sollte nicht abstürzen, wenn es kein Maximum gibt

2 files changed, 37 insertions, 32 deletions

diff --git a/epost.lps b/epost.lps
index c0c4071..4075d16 100644
--- a/epost.lps
+++ b/epost.lps
@@ -22,7 +22,6 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
         <TopLine Value="8667"/>
         <CursorPos X="86" Y="8695"/>
@@ -32,9 +31,10 @@
       <Unit3>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="12"/>
-        <CursorPos X="5" Y="30"/>
+        <TopLine Value="1522"/>
+        <CursorPos X="9" Y="1546"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -212,120 +212,120 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2781" Column="47" TopLine="2753"/>
+        <Caret Line="4379" Column="51" TopLine="4351"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4379" Column="51" TopLine="4351"/>
       </Position2>
       <Position3>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="4742" Column="49" TopLine="4714"/>
       </Position3>
       <Position4>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4742" Column="49" TopLine="4714"/>
+        <Caret Line="5375" Column="50" TopLine="5346"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5375" Column="50" TopLine="5346"/>
+        <Caret Line="5549" Column="30" TopLine="5521"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5549" Column="30" TopLine="5521"/>
+        <Caret Line="5564" Column="32" TopLine="5536"/>
       </Position6>
       <Position7>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5564" Column="32" TopLine="5536"/>
+        <Caret Line="6765" Column="65" TopLine="6737"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6765" Column="65" TopLine="6737"/>
+        <Caret Line="6775" Column="65" TopLine="6747"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6775" Column="65" TopLine="6747"/>
+        <Caret Line="6802" Column="43" TopLine="6774"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6802" Column="43" TopLine="6774"/>
+        <Caret Line="8645" Column="23" TopLine="8542"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8645" Column="23" TopLine="8542"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="4742" Column="49" TopLine="4714"/>
       </Position12>
       <Position13>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4742" Column="49" TopLine="4714"/>
+        <Caret Line="5375" Column="50" TopLine="5346"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5375" Column="50" TopLine="5346"/>
+        <Caret Line="5549" Column="30" TopLine="5521"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5549" Column="30" TopLine="5521"/>
+        <Caret Line="5564" Column="32" TopLine="5536"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5564" Column="32" TopLine="5536"/>
+        <Caret Line="6765" Column="65" TopLine="6737"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6765" Column="65" TopLine="6737"/>
+        <Caret Line="6775" Column="65" TopLine="6747"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6775" Column="65" TopLine="6747"/>
+        <Caret Line="6802" Column="43" TopLine="6789"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6802" Column="43" TopLine="6789"/>
+        <Caret Line="8645" Column="23" TopLine="8617"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8645" Column="23" TopLine="8617"/>
+        <Caret Line="8708" Column="10" TopLine="8667"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8708" Column="10" TopLine="8667"/>
+        <Caret Line="80" Column="31" TopLine="62"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="80" Column="31" TopLine="62"/>
+        <Caret Line="8677" Column="23" TopLine="8649"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8677" Column="23" TopLine="8649"/>
+        <Caret Line="8984" Column="21" TopLine="8958"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="8984" Column="21" TopLine="8958"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="80" Column="31" TopLine="51"/>
       </Position25>
       <Position26>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="80" Column="31" TopLine="51"/>
+        <Caret Line="8677" Column="23" TopLine="8667"/>
       </Position26>
       <Position27>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="8677" Column="23" TopLine="8667"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="94" Column="31" TopLine="77"/>
       </Position27>
       <Position28>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="94" Column="31" TopLine="77"/>
+        <Caret Line="469" Column="25" TopLine="434"/>
       </Position28>
       <Position29>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="469" Column="25" TopLine="434"/>
+        <Caret Line="466" Column="64" TopLine="442"/>
       </Position29>
       <Position30>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="466" Column="64" TopLine="442"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="30" Column="5" TopLine="12"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/werteunit.pas b/werteunit.pas
index d63292b..486e15a 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -1541,6 +1541,11 @@ begin
   end;
   setLength(maxima,mCnt);
 
+  if length(maxima)=0 then begin
+    maxPos:=int64Point(params.xSteps div 2,params.tSiz div 2);
+    exit
+  end;
+
   sortiereNachWert(maxima,true);
   maxPos:=maxima[0];
   maxWert:=0;