epostunit.pas: I thought, I'd thought of everything - but apparently I was wrond

2 files changed, 36 insertions, 35 deletions

diff --git a/epost.lps b/epost.lps
index ea8f087..e59f412 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="175"/>
-        <CursorPos Y="193"/>
+        <TopLine Value="241"/>
+        <CursorPos Y="259"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -24,8 +24,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="2336"/>
-        <CursorPos X="44" Y="2344"/>
+        <TopLine Value="2771"/>
+        <CursorPos X="7" Y="2788"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -210,122 +210,122 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2223" Column="61" TopLine="2195"/>
+        <Caret Line="2243" Column="63" TopLine="2214"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2230" Column="64" TopLine="2202"/>
+        <Caret Line="2253" Column="16" TopLine="2224"/>
       </Position2>
       <Position3>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2243" Column="63" TopLine="2214"/>
+        <Caret Line="2282" Column="15" TopLine="2254"/>
       </Position3>
       <Position4>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2253" Column="16" TopLine="2224"/>
+        <Caret Line="2323" Column="123" TopLine="2315"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2282" Column="15" TopLine="2254"/>
+        <Caret Line="2329" Column="52" TopLine="2315"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2323" Column="123" TopLine="2315"/>
+        <Caret Line="2725" Column="19" TopLine="2717"/>
       </Position6>
       <Position7>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2329" Column="52" TopLine="2315"/>
+        <Caret Line="2765" Column="26" TopLine="2752"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2725" Column="19" TopLine="2717"/>
+        <Caret Line="2768" Column="21" TopLine="2752"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2765" Column="26" TopLine="2752"/>
+        <Caret Line="2771" Column="11" TopLine="2752"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2768" Column="21" TopLine="2752"/>
+        <Caret Line="2783" Column="17" TopLine="2755"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2771" Column="11" TopLine="2752"/>
+        <Caret Line="2785" Column="17" TopLine="2757"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2783" Column="17" TopLine="2755"/>
+        <Caret Line="2786" Column="11" TopLine="2758"/>
       </Position12>
       <Position13>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2785" Column="17" TopLine="2757"/>
+        <Caret Line="2795" Column="42" TopLine="2767"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2786" Column="11" TopLine="2758"/>
+        <Caret Line="2796" Column="23" TopLine="2768"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2795" Column="42" TopLine="2767"/>
+        <Caret Line="2797" Column="11" TopLine="2769"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2796" Column="23" TopLine="2768"/>
+        <Caret Line="2808" Column="38" TopLine="2780"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2797" Column="11" TopLine="2769"/>
+        <Caret Line="2834" Column="11" TopLine="2806"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2808" Column="38" TopLine="2780"/>
+        <Caret Line="2880" Column="19" TopLine="2852"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2834" Column="11" TopLine="2806"/>
+        <Caret Line="2884" Column="82" TopLine="2856"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2880" Column="19" TopLine="2852"/>
+        <Caret Line="2896" Column="126" TopLine="2868"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2884" Column="82" TopLine="2856"/>
+        <Caret Line="2911" Column="19" TopLine="2882"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2896" Column="126" TopLine="2868"/>
+        <Caret Line="2924" Column="7" TopLine="2895"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2911" Column="19" TopLine="2882"/>
+        <Caret Line="2945" Column="24" TopLine="2929"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2924" Column="7" TopLine="2895"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2945" Column="24" TopLine="2929"/>
+        <Caret Line="45" Column="9" TopLine="16"/>
       </Position25>
       <Position26>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="48" Column="18" TopLine="40"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="45" Column="9" TopLine="16"/>
+        <Caret Line="52" Column="32" TopLine="40"/>
       </Position27>
       <Position28>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="48" Column="18" TopLine="40"/>
+        <Caret Line="132" Column="15" TopLine="110"/>
       </Position28>
       <Position29>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="52" Column="32" TopLine="40"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="193" TopLine="175"/>
       </Position29>
       <Position30>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="132" Column="15" TopLine="110"/>
+        <Caret Line="2344" Column="44" TopLine="2336"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/epostunit.pas b/epostunit.pas
index c1013f2..ef3fef1 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -2784,7 +2784,8 @@ begin
       gibAus('Ausdehnung kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3);
       exit;
     end;
-    if ausdehnungsParameterErkannt(sT,s,liKo[0].werte,bekannteBefehle,xMin,xMax,tMin,tMax) then
+    if (length(liKo)>0) and
+      ausdehnungsParameterErkannt(sT,s,liKo[0].werte,bekannteBefehle,xMin,xMax,tMin,tMax) then
       continue;
     if tMax<tMin then begin
       i:=tMax;