1 files changed, 19 insertions, 8 deletions
diff --git a/epostunit.pas b/epostunit.pas
index 390da27..3a1b6e2 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -454,10 +454,11 @@ function findeKontur(s: string; f: tMyStringList; pws: pTWerteArray; pks: pTKont
 function externerBefehl(sT: boolean; s: string): boolean;
 procedure warteAufExterneBefehle;
 procedure beendeExterneBefehleWennFertig;
-function ermittleAnstieg(sT: boolean; s: string; pws: pTWerteArray): boolean;
+function ermittleAnstieg(sT: boolean; s: string): boolean;
 
 var
   allePaletten:   tPalettenArray;
+  globaleWerte:   tKnownValues;
   behalteLogs:    boolean;
   externeBefehle: array of tBefehlThread;
 
@@ -620,7 +621,7 @@ var
   ps: tExtraInfos;
 begin
   inherited create(kont,wert);
-  ps:=tExtraInfos.create;
+  ps:=tExtraInfos.create(globaleWerte);
   genauigkeit:=gSingle;
   leseThread:=nil;
   sWerte:=tLLWerteSingle.create(ps);
@@ -3032,7 +3033,7 @@ begin
   result:=false;
   warteAufBeendigungDesLeseThreads;
   genauigkeit:=gExtended;
-  wavelet:=tWavelet.create;
+  wavelet:=tWavelet.create(knownValues);
   wavelet.mitFFT:=false;
   Zeit:=now;
 
@@ -7281,7 +7282,7 @@ begin
   xf:=erstesArgument(s,';');
   yf:=erstesArgument(s,';');
 
-  kvs:=tKnownValues.create;
+  kvs:=tKnownValues.create(globaleWerte);
 
   lenPO:=1;
   setLength(pOrte,speicherHappen);
@@ -8584,7 +8585,7 @@ begin
       end;
 end;
 
-function ermittleAnstieg(sT: boolean; s: string; pws: pTWerteArray): boolean;
+function ermittleAnstieg(sT: boolean; s: string): boolean;
 var
   i,j:  longint;
   t:    string;
@@ -8614,17 +8615,18 @@ begin
     wert:=1
   else
     wert:=matheunit.ermittleAnstieg(shellExpand(s),i,j);
-  for i:=0 to length(pws^)-1 do
-    pws^[i].knownValues.add(t,wert);
+  globaleWerte.add(t,wert);
   result:=true;
 end;
 
 var
   i: longint;
 
-begin
+initialization
   fileMode := fmOpenRead;
 
+  globaleWerte:=tKnownValues.create(nil);
+
   setLength(externeBefehle,0);
 
   setLength(allePaletten,9);
@@ -8692,5 +8694,14 @@ begin
   allePaletten[8].neuerWert(rgb($ff,$00,$00),false);
   allePaletten[8].neuerWert(rgb($ff,$00,$ff),false);
   allePaletten[8].neuerWert(rgb($00,$00,$ff),false);
+
+finalization
+
+  globaleWerte.free;
+
+  for i:=0 to length(allePaletten)-1 do
+    allePaletten[i].free;
+  setLength(allePaletten,0);
+
 end.