while schleife all 10 interationen mit einer Pause (asu TIMER)

[Alex_ITA01]

Zitat von mkinzler:

Zitat:

Abgesehen davon, Sleep() friert den Prozess/das Programm ein.

Nein, tut es nicht (mehr)

Also wenn ich folgenden Code in 10.4 rein kopiere, hängt meine Anwendung. Bin über die Aussage auch verwundert?!

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  T : LongWord;
begin
  T := GetTickCount; // oder eine andere Zeitfunktion
  while True do
  begin
    if Integer(GetTickCount - T) > 10 * 1000 then
    begin // Integer wegen eventuellem Überlauf, wenn der Rechner mehr als 48 Tage läuft
      T := GetTickCount;
      Sleep(10 * 1000);
    end;
  end;
end;