werteunit.pas: repetitive Dinge in werteunit.inc ausgelagert

1 files changed, 71 insertions, 62 deletions

diff --git a/epost.lps b/epost.lps
index 9e9a506..a5cdef5 100644
--- a/epost.lps
+++ b/epost.lps
@@ -3,7 +3,7 @@
   <ProjectSession>
     <Version Value="10"/>
     <BuildModes Active="Default"/>
-    <Units Count="28">
+    <Units Count="29">
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -22,10 +22,9 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="3822"/>
-        <CursorPos Y="3839"/>
+        <TopLine Value="7311"/>
+        <CursorPos X="20" Y="7313"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -39,16 +38,17 @@
       <Unit4>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="8"/>
-        <TopLine Value="2106"/>
-        <CursorPos Y="2129"/>
+        <TopLine Value="1833"/>
+        <CursorPos X="25" Y="1221"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="11"/>
         <TopLine Value="2757"/>
         <CursorPos X="31" Y="2786"/>
         <UsageCount Value="200"/>
@@ -75,9 +75,9 @@
       <Unit8>
         <Filename Value="gauszFit.inc"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="9"/>
+        <EditorIndex Value="10"/>
         <CursorPos X="35" Y="10"/>
-        <UsageCount Value="133"/>
+        <UsageCount Value="134"/>
         <Loaded Value="True"/>
       </Unit8>
       <Unit9>
@@ -215,127 +215,136 @@
         <CursorPos X="10" Y="26"/>
         <UsageCount Value="8"/>
       </Unit27>
+      <Unit28>
+        <Filename Value="werteunit.inc"/>
+        <IsPartOfProject Value="True"/>
+        <EditorIndex Value="9"/>
+        <TopLine Value="151"/>
+        <CursorPos X="8" Y="163"/>
+        <UsageCount Value="21"/>
+        <Loaded Value="True"/>
+      </Unit28>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="235" Column="46" TopLine="213"/>
+        <Caret Line="36" TopLine="36"/>
       </Position1>
       <Position2>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="2125" Column="95" TopLine="2100"/>
+        <Caret Line="232" Column="119" TopLine="211"/>
       </Position2>
       <Position3>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="2115" Column="143" TopLine="2098"/>
+        <Caret Line="235" Column="46" TopLine="211"/>
       </Position3>
       <Position4>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="65" Column="16" TopLine="46"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3838" Column="36" TopLine="3822"/>
       </Position4>
       <Position5>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="2116" Column="41" TopLine="2098"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="162" Column="45" TopLine="156"/>
       </Position5>
       <Position6>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="25" Column="41" TopLine="7"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3698" Column="53" TopLine="3684"/>
       </Position6>
       <Position7>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="26" Column="41" TopLine="7"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3632" Column="45" TopLine="3614"/>
       </Position7>
       <Position8>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="226" Column="79" TopLine="207"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="379" Column="19" TopLine="361"/>
       </Position8>
       <Position9>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="322" Column="39" TopLine="312"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3632" Column="53" TopLine="3603"/>
       </Position9>
       <Position10>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="64" Column="27" TopLine="46"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3691" Column="25" TopLine="3663"/>
       </Position10>
       <Position11>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="65" Column="27" TopLine="46"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="2122" Column="69" TopLine="2106"/>
       </Position11>
       <Position12>
-        <Filename Value="../units/lowlevelunit.pas"/>
-        <Caret Line="333" Column="68" TopLine="311"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="49" Column="32" TopLine="21"/>
       </Position12>
       <Position13>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="212" Column="62" TopLine="208"/>
+        <Caret Line="50" Column="32" TopLine="22"/>
       </Position13>
       <Position14>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="216" Column="34" TopLine="208"/>
+        <Caret Line="51" Column="32" TopLine="23"/>
       </Position14>
       <Position15>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="226" Column="24" TopLine="208"/>
+        <Caret Line="492" Column="72" TopLine="449"/>
       </Position15>
       <Position16>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="2129" Column="44" TopLine="2103"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="10" Column="9"/>
       </Position16>
       <Position17>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="24" Column="29" TopLine="6"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="12" Column="9"/>
       </Position17>
       <Position18>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="256" Column="78" TopLine="239"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="14" Column="3"/>
       </Position18>
       <Position19>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="2072" Column="30" TopLine="2043"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="13" Column="75"/>
       </Position19>
       <Position20>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="2136" Column="98" TopLine="2108"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="15" Column="3"/>
       </Position20>
       <Position21>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="26" Column="20"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="3" Column="18"/>
       </Position21>
       <Position22>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="25" Column="41"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="30" Column="32" TopLine="16"/>
       </Position22>
       <Position23>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="26" Column="41"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="54" TopLine="19"/>
       </Position23>
       <Position24>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="228" Column="38" TopLine="199"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="55" Column="3" TopLine="30"/>
       </Position24>
       <Position25>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="232" Column="55" TopLine="280"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="85" Column="3" TopLine="65"/>
       </Position25>
       <Position26>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="236" Column="46" TopLine="218"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="67" Column="9" TopLine="64"/>
       </Position26>
       <Position27>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1963" Column="88" TopLine="1945"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="100" Column="36" TopLine="88"/>
       </Position27>
       <Position28>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="36" TopLine="36"/>
+        <Caret Line="307" TopLine="307"/>
       </Position28>
       <Position29>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="232" Column="119" TopLine="211"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="101" Column="8" TopLine="88"/>
       </Position29>
       <Position30>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="235" Column="46" TopLine="211"/>
+        <Filename Value="werteunit.inc"/>
+        <Caret Line="163" Column="10" TopLine="150"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>