Delay in Delphi

[Luckie]

Delphi-Quellcode:

procedure Delay(msec: Longint);
var
  start, stop: Longint;
begin
  start := GetTickCount;
  repeat
    stop := GetTickCount;
    Application.ProcessMessages;
  until (stop - start) >= msec;
end;

[edit=toms]Code formatiert. Mfg, toms[/edit]

[CalganX]

Eine Resssourcenschonendere Variante von negaH: http://www.delphipraxis.net/internal...ect.php?t=7355