diff options
| -rw-r--r-- | epost.lps | 113 | ||||
| -rw-r--r-- | epostunit.pas | 24 |
2 files changed, 78 insertions, 59 deletions
@@ -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); |