TTask wird nicht beendet

[Rollo62]

Delphi-Quellcode:

procedure TForm1.A;
begin
  while FThreadsActive do
    begin
      sleep(10);
    end;
end;

procedure TForm1.B;
var
  i: Cardinal;
begin
  while FThreadsActive and not TThread.CurrentThread.CheckTerminated do
    begin
      sleep(50);
      inc(i);
      TThread.Queue(TThread.CurrentThread, procedure
                       begin
                         edit1.Text := format('%d %d',[integer(TThread.CurrentThread), i]);
                       end);
    end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FThreadsActive  := False;
end;

So von Prinzip her, ich würde die FThreadsActive dann aber nur mit Interlocked/Atomic Funktionen anfassen.

[Klaus01]

Danke - das Leben kann so einfach sein.

Aus dem Task bzw. deren Taskprocedure kann ich nicht erfahren ob der Task beendet wurde.
Es gibt da noch die Methode checkCanceled - aber dazu muss die Routine wissen von welchem
Task sie gestartet wurde.

Grüße
Klaus

[Der schöne Günther]

Klar kannst du das

TTask.CurrentTask() liefert dir den aktuellen Task in dem eine Methode grade steckt. Das gleiche gibt es übrigens auch mit TThread.

[Klaus01]

Danke Günter.

Delphi-Quellcode:

procedure TForm1.A;
var
  stopped: Boolean;
begin
  stopped := false;
  while not stopped do
    begin
      try
        TTask.CurrentTask.CheckCanceled;
      except
        on EOperationCancelled do
          stopped := true;
      end;
      sleep(10);
    end;
end;

procedure TForm1.B;
var
  i: Cardinal;
  stopped: Boolean;
begin
  stopped := false;
  while not stopped and not TThread.CurrentThread.CheckTerminated do
    begin
      try
        TTask.CurrentTask.CheckCanceled;
      except
        on EOperationCancelled do
          stopped := true;
      end;
      sleep(50);
      inc(i);
      TThread.Queue(TThread.CurrentThread, procedure
                       begin
                         edit1.Text := format('%d  %d',[integer(TThread.CurrentThread), i]);
                       end);
    end;
end;

ich denke, ich werde es dann so machen.

Grüße
Klaus