|
Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Delay in Delphi
11. Jun 2002, 14:47
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]
Michael
Ein Teil meines Codes würde euch verunsichern.
|