ignoriere Zeiten, zu denen wir schon Messwerte haben

1 files changed, 12 insertions, 0 deletions

diff --git a/fhunit.pas b/fhunit.pas
index 7a00db1..b049cda 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -74,6 +74,7 @@ type
     _tNum,_tAnz:    longint;
     procedure uebernehmen;
     procedure nZeitNullen;
+    procedure nZeitDuplikateAuslassen;
     procedure mySynchronize(aMethod: TThreadMethod);
   public
     beenden: boolean;
@@ -413,6 +414,7 @@ begin
   beenden:=false;
   warGueltig:=false;
   nZeitNullen;
+  nZeitDuplikateAuslassen;
   suspended:=false;
 end;
 
@@ -447,6 +449,15 @@ begin
   synchronized:=true;
 end;
 
+procedure tMessPunkteUpdateThread.nZeitDuplikateAuslassen;
+begin
+  while _besitzer.werte.hat(nZeit) do begin
+    if beenden then exit;
+    nZeit:= nZeit + _tAnz * 1 / 24 / 6;
+  end;
+  synchronized:=true;
+end;
+
 procedure tMessPunkteUpdateThread.mySynchronize(aMethod: TThreadMethod);
 begin
   synchronized:=false;
@@ -513,6 +524,7 @@ begin
           sleep(100);
         end;
       end;
+      mySynchronize(@nZeitDuplikateAuslassen);
     end;
   end;
   ladeProzess:=nil;