Einzelnen Beitrag anzeigen

greenmile

Registriert seit: 17. Apr 2003
1.082 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Label aktualisieren / TTask

  Alt 12. Jan 2021, 13:56
Ah, ok, quasi "while not terminated"? Wenn ich es recht verstehe, muss ich "CheckCanceled" aufrufen, das wirft eine Exception, wenn abgebrochen werden soll.
Passt das so? Die While Bedingung ist echt dumm.

Code:
   CompUpdateTask := TTask.Create(
     procedure
     begin
       While (1=1) do begin
         CompUpdateTask.CheckCanceled;

         Sleep(500);
         TThread.Synchronize(TThread.Current,
           procedure
           begin
             UpdateComponents;
           end);
        End;
     end);
   CompUpdateTask.Start;

Geändert von greenmile (12. Jan 2021 um 14:23 Uhr)
  Mit Zitat antworten Zitat