From aeb8a84e8dca591a60bea3e3d2f219dc891ed68a Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 15 Feb 2016 15:16:32 +0100 Subject: liKo kann jetzt x/t-min/max richtig --- epost.lps | 113 ++++++++++++++++++++++++++++++---------------------------- epostunit.pas | 24 ++++++++++--- 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 @@ - - + + @@ -25,8 +25,8 @@ - - + + @@ -41,8 +41,8 @@ - - + + @@ -118,123 +118,126 @@ - + - + - + - + - - + + - - + + - - + + - - + + - - + + - - + + - - - + + - - + + - - + + - - + + - - + + - - + + - + - + - + - + - + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + + + + + + 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); -- cgit v1.2.3-70-g09d2