wieder lauffähig

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;