diff options
Diffstat (limited to 'epost.lpr')
| -rw-r--r-- | epost.lpr | 18 |
1 files changed, 11 insertions, 7 deletions
@@ -182,7 +182,7 @@ begin aufraeumen; halt(1); end; - if wertes[i].berechneLiKo(syntaxtest,inf,maxthreads,@wertes) then + if wertes[i].berechneLiKo(syntaxtest,inf,maxthreads) then continue; aufraeumen; halt(1); @@ -234,7 +234,7 @@ begin wertes[length(wertes)-1]:=tWerte.create; k:=length(wertes)-1; end; - if wertes[k].berechneQuotient(syntaxtest,inf,maxthreads,i,j,@wertes) then + if wertes[k].berechneQuotient(syntaxtest,inf,maxthreads,i,j) then continue; aufraeumen; halt(1); @@ -372,16 +372,20 @@ begin maxThreads:=strtoint(s); continue; end; - if pos('maximale und minimale Dichten ermitteln',s)=1 then begin - delete(s,1,length('maximale und minimale Dichten ermitteln')); - while pos(' ',s)=1 do delete(s,1,1); + if pos('maximale und minimale Dichten bestimmen',s)=1 then begin + delete(s,1,length('maximale und minimale Dichten bestimmen')); + s:=trim(s); b:=pos('(symmetrisch)',s)=1; if b then begin delete(s,1,length('(symmetrisch)')); - while pos(' ',s)=1 do delete(s,1,1); + s:=trim(s); end; if s='' then i:=length(wertes)-1 - else i:=strtoint(s); + else findeWerte(s,@wertes,@Konturen,false); + if i<0 then begin + aufraeumen; + halt(1); + end; wertes[i].ermittleMinMaxDichten(syntaxtest,maxThreads,b); continue; end; |