liKo kann jetzt x/t-min/max richtig

2 files changed, 78 insertions, 59 deletions

diff --git a/epost.lps b/epost.lps
index 4ee2931..00a579f 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="60"/>
-        <CursorPos Y="69"/>
+        <TopLine Value="66"/>
+        <CursorPos X="46" Y="76"/>
         <FoldState Value=" T0iXW39123111221]65151[84313[4421[Q4121[85]as"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
@@ -25,8 +25,8 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="3397"/>
-        <CursorPos X="32" Y="3409"/>
+        <TopLine Value="1730"/>
+        <CursorPos X="21" Y="1740"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -41,8 +41,8 @@
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="92"/>
-        <CursorPos X="28" Y="86"/>
+        <TopLine Value="555"/>
+        <CursorPos X="34" Y="431"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -118,123 +118,126 @@
         <UsageCount Value="10"/>
       </Unit14>
     </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="147" Column="33" TopLine="115"/>
+        <Caret Line="315" Column="36" TopLine="282"/>
       </Position1>
       <Position2>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="203" Column="14" TopLine="170"/>
+        <Caret Line="337" Column="36" TopLine="304"/>
       </Position2>
       <Position3>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="833" Column="57" TopLine="800"/>
+        <Caret Line="392" Column="36" TopLine="359"/>
       </Position3>
       <Position4>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="693" Column="36" TopLine="674"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3305" Column="122" TopLine="3277"/>
       </Position4>
       <Position5>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="25" Column="23" TopLine="5"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="141" Column="25" TopLine="123"/>
       </Position5>
       <Position6>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="26" Column="23" TopLine="5"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="2943" Column="28" TopLine="3015"/>
       </Position6>
       <Position7>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="27" Column="23" TopLine="5"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="344" Column="20" TopLine="324"/>
       </Position7>
       <Position8>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="28" Column="23" TopLine="5"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1756" Column="18" TopLine="1724"/>
       </Position8>
       <Position9>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="76" Column="23" TopLine="43"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6202" TopLine="6162"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="419" TopLine="399"/>
       </Position10>
       <Position11>
-        <Filename Value="epost.lpr"/>
-        <Caret Line="69" Column="3" TopLine="60"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="344" Column="20" TopLine="311"/>
       </Position11>
       <Position12>
-        <Filename Value="epost.lpr"/>
-        <Caret Line="69" TopLine="60"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1756" Column="18" TopLine="1724"/>
       </Position12>
       <Position13>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="1303" Column="69" TopLine="1282"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1900" Column="18" TopLine="1868"/>
       </Position13>
       <Position14>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="1302" TopLine="1282"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="2425" Column="45" TopLine="2392"/>
       </Position14>
       <Position15>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="952" TopLine="924"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3346" Column="20" TopLine="3314"/>
       </Position15>
       <Position16>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="1302" TopLine="1282"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="3883" Column="18" TopLine="3850"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="419" TopLine="399"/>
+        <Caret Line="5112" Column="16" TopLine="5079"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3146" Column="13" TopLine="3113"/>
+        <Caret Line="5921" Column="33" TopLine="5900"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3163" Column="13" TopLine="3130"/>
+        <Caret Line="1573" Column="37" TopLine="1554"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3164" Column="13" TopLine="3131"/>
+        <Caret Line="1549" Column="27" TopLine="1526"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3201" Column="13" TopLine="3169"/>
+        <Caret Line="78" Column="43" TopLine="58"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3390" Column="13" TopLine="3408"/>
+        <Caret Line="1278" Column="99" TopLine="1246"/>
       </Position22>
       <Position23>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="281" Column="36" TopLine="259"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1573" Column="32" TopLine="1550"/>
       </Position23>
       <Position24>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="316" TopLine="312"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="86" Column="28" TopLine="86"/>
       </Position24>
       <Position25>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="376" TopLine="355"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1549" Column="35" TopLine="1538"/>
       </Position25>
       <Position26>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="281" Column="36" TopLine="263"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="78" Column="43" TopLine="58"/>
       </Position26>
       <Position27>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="315" Column="36" TopLine="282"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1175" Column="37" TopLine="1228"/>
       </Position27>
       <Position28>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="337" Column="36" TopLine="304"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1752" Column="14" TopLine="1726"/>
       </Position28>
       <Position29>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="392" Column="36" TopLine="359"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1476" TopLine="1456"/>
       </Position29>
+      <Position30>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1483" Column="15" TopLine="1468"/>
+      </Position30>
     </JumpHistory>
   </ProjectSession>
 </CONFIG>
diff --git a/epostunit.pas b/epostunit.pas
index 7ddd77d..3d44d7b 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -1737,19 +1737,35 @@ begin
     end;
     if s='Ende' then break;
     if startetMit('xmin:',s) then begin
-      xmin:=kont2disk('x',exprtofloat(st,s));
+      if length(liKo)=0 then begin
+        gibAus('xmin kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3);
+        exit;
+      end;
+      xmin:=liKo[0].werte.kont2disk('x',exprtofloat(st,s));
       continue;
     end;
     if startetMit('xmax:',s) then begin
-      xmax:=kont2disk('x',exprtofloat(st,s));
+      if length(liKo)=0 then begin
+        gibAus('xmax kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3);
+        exit;
+      end;
+      xmax:=liKo[0].werte.kont2disk('x',exprtofloat(st,s));
       continue;
     end;
     if startetMit('tmin:',s) then begin
-      tmin:=kont2disk('t',exprtofloat(st,s));
+      if length(liKo)=0 then begin
+        gibAus('tmin kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3);
+        exit;
+      end;
+      tmin:=liKo[0].werte.kont2disk('t',exprtofloat(st,s));
       continue;
     end;
     if startetMit('tmax:',s) then begin
-      tmax:=kont2disk('t',exprtofloat(st,s));
+      if length(liKo)=0 then begin
+        gibAus('tmax kann erst gesetzt werden, wenn wenigstens eine Komponente bekannt ist',3);
+        exit;
+      end;
+      tmax:=liKo[0].werte.kont2disk('t',exprtofloat(st,s));
       continue;
     end;
     setlength(liKo,length(liKo)+1);