summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--fhunit.pas7
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;