delay bzw. sleep

[stoxx]

die Version von Luckie ist nicht ganz perfekt, bzw. geht die CPU Last dann auf 100 Prozent
http://www.delphipraxis.net/viewtopic.php?t=131

und diese Funktion von negaH hat ein paar schwer zu findende Macken, in Kombination mit anderen Threads und Sockets ...
http://www.delphipraxis.net/internal...elay+revisited



ab und an ... , wenn man es nicht vermeiden kann, mit sleep zu arbeiten, verwenden wir jetzt wieder die alte Version

Delphi-Quellcode:

procedure SleepX(Milliseconds : Integer);
var
  TC: DWORD;
begin
  TC := GetTickCount;
  repeat
    if application.Terminated then
       exit;
    Application.ProcessMessages;
    sleep(1);
  until ((GetTickCount-TC) > Milliseconds);
end;