Boris Nienke
Sleep Delay Wait Pause
[code lang=”delphi”]procedure Delay(iMilliSec: integer);
var tVergl: TTimeStamp;
iTime : integer;
begin
tVergl := DateTimeToTimeStamp(now);
iTime := tVergl.Time;
repeat
tVergl := DateTimeToTimeStamp(now);
until (tVergl.Time – iTime) >= iMilliSec;
end;
[/code]
[tags]Delphi, Misc[/tags]
0 Kommentare zu “Delay (Boris Nienke)”