From 920fd6db230eafe93522439c52f24d2556580b4a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 5 Feb 2016 10:24:22 +0100
Subject: wieder lauffähig
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 werteunit.pas | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'werteunit.pas')

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;
-- 
cgit v1.2.3-70-g09d2