From b6ff22d2ffa517d5130058e1406f8ac7dd50e958 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Sun, 26 Jun 2022 22:03:18 +0200 Subject: alle Lücken versuchen zu füllen MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- fhunit.pas | 7 +------ 1 file changed, 1 insertion(+), 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; -- cgit v1.2.3-54-g00ecf