alle Lücken versuchen zu füllen

1 files changed, 1 insertions, 6 deletions

diff --git a/fhunit.pas b/fhunit.pas
index b049cda..d75ce95 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -438,14 +438,9 @@ begin
 end;
 
 procedure tMessPunkteUpdateThread.nZeitNullen;
-var
-  lIch: longint;
 begin
   if beenden then exit;
-  lIch:=_besitzer.werte.count-1;
-  while round(_besitzer.werte[lIch].zeit*24*6) mod _tAnz <> _tNum do
-    dec(lIch);
-  nZeit:=_besitzer.werte[lIch].zeit + _tAnz*1/24/6;
+  nZeit:= _besitzer.werte[0].zeit + _tNum * 1 / 24 / 6;
   synchronized:=true;
 end;