Pause in if.. else.. Verzweigung

[Sir Rufo]

while not SollIchWeitermachen do Application.ProcessMessages; Aber schön ist das so nicht.

Und so ballern wir uns auch nicht die CPU zu

Delphi-Quellcode:

while 
  not SollIchWeitermachen 
do 
  begin
    Application.ProcessMessages;  // Mal die Anderen zu Wort kommen lassen
    if 
      not SollIchWeitermachen
    then
      Sleep( 10 );  // 10 Millisekunden verschnaufen
  end;