Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#14

AW: while schleife all 10 interationen mit einer Pause (asu TIMER)

  Alt 27. Jul 2020, 15:50
Ich habe nochmal in meinen Archiven geforstet nach einem Sleep() Ersatz ohne das der MainThread dabei einfriert und bin auf diese Perle gestoßen:
Delphi-Quellcode:
procedure Delay(Milliseconds: Integer);
  {by Hagen Reddmann}
var
  Tick: DWORD;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWORD(Milliseconds);
    while (Milliseconds > 0) and
      (MsgWaitForMultipleObjects(1, Event, False, Milliseconds,
      QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      Milliseconds := Tick - GetTickCount;
    end;
  finally
    CloseHandle(Event);
  end;
end;
In Verbindung mit Delphi Timer bzw Iterations-Zähler sollte das Thema erfolgreich gelöst sein, hoffe ich jedenfalls
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat