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

[himitsu]

Was ist denn so schwer daran?
* Zeit messen und speichern
* warten bis aktuelle Zeit zu gemessener Zeit mehr/mindestens 10 Sekunden enspricht
** dann die neue aktuelle Zeit speichern

oder
* Zeit Messen + 10 Sekunden und speichern
* warten bis aktuelle Zeit zu gemessener kleiner als gespeicherte
** dann die neue aktuelle Zeit + 10 Sekunden speichern

Delphi-Quellcode:

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

[KodeZwerg]

Falls das Zielsystem Windows ist und der Umgang mit Delphi's Timer unerwünscht ist, wie wäre es mit dem Windows Timer? Per SetTimer() easy realisierbar.

[Jasocul]

Ich verstehe nicht, wofür der Timer benötigt wird, wenn klar ist, dass alle 10 Durchläufe pausiert werden soll.
Die Länge der Pause lässt sich auch beim Sleep definieren. Dafür benötigt man keinen Timer.

[KodeZwerg]

Zitat von Jasocul:

Ich verstehe nicht, wofür der Timer benötigt wird

Zitat von wschrabi:

die Pause möchte ich via timer definieren

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

[mkinzler]

Zitat:

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

Nein, tut es nicht (mehr)

[haentschman]

Zitat:

Nein, tut es nicht (mehr)

...seit wann?

[KodeZwerg]

Zitat von mkinzler:

Zitat:

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

Nein, tut es nicht (mehr)

hmpf.... erst mit delphi 10.4? hab ja gerade erst mit 10.3.3 dieses "unendlicher progressbar" demo gemacht und sleep() als einfrierer missbraucht um den mainthread für so und so lange unfähig zu machen.
wenn das so ist, nehme ich meine aussage natürlich zurück und entschuldige mich für diese aussage.

[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;

[himitsu]

Eigentlich würde ich gern mal nachsehn ob/was die mit dem Sleep da grade für ein Verbrechen begehen ... wenn ich's mal schaffe 10.4 installiert zu bekommen.

Weil wenn die wirklich da Sleep durch Delay ersetzen würden, dann wäre das grob fahrlässig.

[Michael II]

Zitat von mkinzler:

Zitat:

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

Nein, tut es nicht (mehr)

Hast du dazu ein Beispiel zu "Nein, tut es nicht (mehr)"? Wenn ich in

Delphi-Quellcode:

procedure TForm36.Button1Click(Sender: TObject);
begin
  sleep( 60000 );
end;

meinen Button1 klicke, dann schläft mein Hauptthread während 60 Sekunden (Form reagiert nicht mehr auf Mausklicks etc.) - wenn ich im Windows Task Manager nachsehe, dann steht dort sehr kurz nach dem Button1-Klick "Keine Rückmeldung".

Das war bis jetzt doch in jedem Delphi und jedem Windows so (?).

Rasch gecheckt mit Delphi 10.4 und Microsoft Windows [Version 10.0.19042.421].

Winapi.Windows:
procedure Sleep; external kernel32 name 'Sleep';