From e5fd69df4e9ff5d7f228a9e2128ce837bef2c90a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sun, 26 Jun 2022 22:01:51 +0200
Subject: ignoriere Zeiten, zu denen wir schon Messwerte haben

---
 fhunit.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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;
-- 
cgit v1.2.3-54-g00ecf