diff options
-rw-r--r-- | fhunit.pas | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -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; |