Mastodon
Programmierung

Delay (Boris Nienke)

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)

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht.