Zitat von
Silenoz84:
//Edit: Wow, da war Stevie schneller... also hält Delay das System an (immer sehr übel)!
Das hat es zumindest in Pascal immer gemacht. Ich meine, dass es diese Funktion bei Delphi garnicht mehr gibt, aber irgendwie ist sie schon implementiert worden. Hab ich auch schon bei mnir gemacht allerdings so:
Delphi-Quellcode:
procedure Delay(cardinal: ms);
var
Ticks: cardinal;
begin
Ticks := GetTickCount;
while GetTickCount < (Ticks + ms) do
Application.ProcessMessages;
end;
P.S.: Der Ansatz von Beatmaster scheint mir auch ein wenig "pascallastig" zu sein...
