Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.490 Beiträge
 
Delphi 7 Professional
 
#9

AW: Code, der das Programm einfrieren lässt

  Alt 13. Sep 2023, 09:43
repeat until false;
repeat until true = false; while true do; repeat until 47 = 11; i := 0; repeat until i = 42; Eigentlich jede Schleife, deren Endebedingung nie erfüllt werden wird.

Früher hat man diese Methode gerne mal verwendet um zu Heizen.
Seit Strom aber so teuer ist dass die Leute wieder Schweinespeck in Tranlampen übergehen, kann ich nur zu Uwe's Lösung raten.
Sleep(MaxInt); Dauert gut 3 Wochen bis das zurückkommt.
Prinzipiel hast Du ja recht. Es war halt nach dem "Programmhänger" gefragt und nicht nach einem Strom- und / oder resourcesparenden "Programmhänger".

Wir können aber gerne die Lösungsvorschläge kombinieren, dann wird der "Programmhänger" auch strom- und resourcensparend:

repeat Sleep(MaxInt); until false;
repeat Sleep(MaxInt); until true = false;
while true do Sleep(MaxInt);
repeat Sleep(MaxInt); until 47 = 11;
i := 0; repeat Sleep(MaxInt); until i = 42;

Die Einschränkung der Laufzeit auf lediglich etwa drei Wochen, aus Uwes Vorschlag, wird dadurch auch aufgehoben.

Es handelt sich also um durchaus unterschiedliche Lösungen des Problems
  Mit Zitat antworten Zitat