epostunit.pas: Fehler, wenn erzeugte Kontur keine Punkte enthält

1 files changed, 53 insertions, 56 deletions

diff --git a/epost.lps b/epost.lps
index 7dee00f..c0c4071 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="521"/>
-        <CursorPos X="29" Y="544"/>
+        <TopLine Value="673"/>
+        <CursorPos X="30" Y="702"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -24,8 +24,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="109"/>
-        <CursorPos X="16" Y="126"/>
+        <TopLine Value="8667"/>
+        <CursorPos X="86" Y="8695"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -86,7 +86,7 @@
         <EditorIndex Value="7"/>
         <TopLine Value="86"/>
         <CursorPos X="26" Y="115"/>
-        <UsageCount Value="58"/>
+        <UsageCount Value="59"/>
         <Loaded Value="True"/>
       </Unit9>
       <Unit10>
@@ -94,7 +94,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="8"/>
         <CursorPos X="3" Y="2"/>
-        <UsageCount Value="54"/>
+        <UsageCount Value="55"/>
         <Loaded Value="True"/>
       </Unit10>
       <Unit11>
@@ -113,16 +113,16 @@
       <Unit13>
         <Filename Value="../units/lowlevelunit.pas"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="121"/>
-        <CursorPos X="46" Y="139"/>
+        <TopLine Value="451"/>
+        <CursorPos Y="466"/>
         <UsageCount Value="101"/>
         <Loaded Value="True"/>
       </Unit13>
       <Unit14>
         <Filename Value="../units/matheunit.pas"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="4"/>
-        <CursorPos Y="33"/>
+        <TopLine Value="665"/>
+        <CursorPos X="39" Y="693"/>
         <UsageCount Value="101"/>
         <Loaded Value="True"/>
       </Unit14>
@@ -211,124 +211,121 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="350" Column="18" TopLine="342"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="2781" Column="47" TopLine="2753"/>
       </Position1>
       <Position2>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2024" Column="31" TopLine="2002"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4379" Column="51" TopLine="4351"/>
       </Position2>
       <Position3>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="2021" Column="11" TopLine="2003"/>
+        <Filename Value="epostunit.pas"/>
       </Position3>
       <Position4>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="310" Column="11" TopLine="292"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4742" Column="49" TopLine="4714"/>
       </Position4>
       <Position5>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="1875" Column="29" TopLine="1845"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5375" Column="50" TopLine="5346"/>
       </Position5>
       <Position6>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="1879" Column="36" TopLine="1849"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5549" Column="30" TopLine="5521"/>
       </Position6>
       <Position7>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="1899" Column="18" TopLine="1869"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5564" Column="32" TopLine="5536"/>
       </Position7>
       <Position8>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="3424" Column="11" TopLine="3406"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6765" Column="65" TopLine="6737"/>
       </Position8>
       <Position9>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="3428" Column="13" TopLine="3406"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6775" Column="65" TopLine="6747"/>
       </Position9>
       <Position10>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="3432" Column="13" TopLine="3406"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6802" Column="43" TopLine="6774"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="1120" Column="23" TopLine="1103"/>
+        <Caret Line="8645" Column="23" TopLine="8542"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="185" Column="39" TopLine="169"/>
       </Position12>
       <Position13>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="201" Column="42" TopLine="173"/>
+        <Caret Line="4742" Column="49" TopLine="4714"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7294" TopLine="7284"/>
+        <Caret Line="5375" Column="50" TopLine="5346"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7432" TopLine="7406"/>
+        <Caret Line="5549" Column="30" TopLine="5521"/>
       </Position15>
       <Position16>
-        <Filename Value="epost.lpr"/>
-        <Caret Line="144" Column="67" TopLine="105"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5564" Column="32" TopLine="5536"/>
       </Position16>
       <Position17>
-        <Filename Value="epost.lpr"/>
-        <Caret Line="533" Column="29" TopLine="504"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6765" Column="65" TopLine="6737"/>
       </Position17>
       <Position18>
-        <Filename Value="epost.lpr"/>
-        <Caret Line="544" Column="29" TopLine="521"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6775" Column="65" TopLine="6747"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="202" Column="26" TopLine="186"/>
+        <Caret Line="6802" Column="43" TopLine="6789"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="7524" Column="19" TopLine="7508"/>
+        <Caret Line="8645" Column="23" TopLine="8617"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="163" Column="36" TopLine="147"/>
+        <Caret Line="8708" Column="10" TopLine="8667"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="164" Column="35" TopLine="147"/>
+        <Caret Line="80" Column="31" TopLine="62"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="165" Column="36" TopLine="147"/>
+        <Caret Line="8677" Column="23" TopLine="8649"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="2262" Column="26" TopLine="2248"/>
+        <Caret Line="8984" Column="21" TopLine="8958"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3389" Column="39" TopLine="3378"/>
       </Position25>
       <Position26>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3391" Column="24" TopLine="3378"/>
+        <Caret Line="80" Column="31" TopLine="51"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3394" Column="38" TopLine="3459"/>
+        <Caret Line="8677" Column="23" TopLine="8667"/>
       </Position27>
       <Position28>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7398" Column="4" TopLine="7380"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="94" Column="31" TopLine="77"/>
       </Position28>
       <Position29>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="7409" Column="56" TopLine="7392"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="469" Column="25" TopLine="434"/>
       </Position29>
       <Position30>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="221" Column="14" TopLine="205"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="466" Column="64" TopLine="442"/>
       </Position30>
     </JumpHistory>
     <RunParams>