procedure waten lassen

[neolithos]

Stand aber nicht in der Frage!

Desweiteren ist das schlecht für die anderen Prozesse im System...

Ich würde die ganze Sache so formulieren...

Delphi-Quellcode:

procedure Wait(time: word);
var Start: Integer;
begin
  Start:=GetTickCount;
  while GetTickCount-Start <= time do
    begin
      application.ProcessMessages;
      Sleep(0); // Terminiere Zeitscheibe bzw. Sleep(1); um Prozessor zu entlasten
    end; 
end;

..., wenn es nicht exakt sein soll!


Ganz ideal wäre ein System-Timer via MsgWaitForMultipleObjects (was hunderstel genau funktioniert).
Falls interesse besteht -> muss ich mir den Code noch ausdenken