diff options
Diffstat (limited to 'werteunit.pas')
| -rw-r--r-- | werteunit.pas | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/werteunit.pas b/werteunit.pas index d77c60c..aea3462 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -152,8 +152,7 @@ begin xmax:=min(xmax,original^.params.xsteps-1); xmin:=max(xmin,0); params.xsteps:=xmax+1-xmin; - if not params.transformationen.hatNachfolger then - params.transformationen.free; + zerstoereTransformationWennObsolet(params.transformationen); params.transformationen:=tKoordinatenAusschnitt.create(original^.params.transformationen,xmin,xmax,tmin,tmax); params.maxW:=0; params.minW:=0; @@ -179,8 +178,7 @@ begin xmax:=min(xmax,original^.params.xsteps-1); xmin:=max(xmin,0); params.xsteps:=xmax+1-xmin; - if not params.transformationen.hatNachfolger then - params.transformationen.free; + zerstoereTransformationWennObsolet(params.transformationen); params.transformationen:=tKoordinatenAusschnitt.create(original^.params.transformationen,xmin,xmax,tmin,tmax); params.maxW:=0; params.minW:=0; @@ -206,8 +204,7 @@ begin xmax:=min(xmax,original^.params.xsteps-1); xmin:=max(xmin,0); params.xsteps:=xmax+1-xmin; - if not params.transformationen.hatNachfolger then - params.transformationen.free; + zerstoereTransformationWennObsolet(params.transformationen); params.transformationen:=tKoordinatenAusschnitt.create(original^.params.transformationen,xmin,xmax,tmin,tmax); params.maxW:=0; params.minW:=0; @@ -438,7 +435,6 @@ begin dec(tmpi); if tmpi-round(params.tstart/dateien[i].groeszenFaktor)<>i then begin gibAus('Datei '''+dateien[i].Name+''' kommt nicht an '+inttostr(i)+'-ter Stelle, wie sie sollte, sondern an '+inttostr(tmpi-round(params.tstart/dateien[i].groeszenFaktor))+'-ter.',3); - writeln(tmpi); close(f); exit; end; |