Ist die Verwendung von TTask so korrekt?

[Uwe Raabe]

Zitat von Mavarik:

Delphi-Quellcode:

procedure TForm202.Button2Click(Sender: TObject);
begin
  TTask.Run(Procedure 
    begin
      TThread.Query(NIL,Procedure
        begin
          Sleep(1000);
          Caption := '42';
        end;
    end;      
end;

Das ergibt aber überhaupt keinen Sinn. Zunächst ist mir TThread.Query völlig unbekannt. Sollte es sich dabei um TThread.Queue handeln, verlagerst du das Sleep ja wieder in den Hauptthread.

Ich hätte jetzt eher diesen Ansatz gewählt:

Delphi-Quellcode:

procedure TForm202.Button2Click(Sender: TObject);
begin
  TTask.Run(
    Procedure 
    begin
      Sleep(1000);
      TThread.Query(NIL,
        Procedure
        begin
          Caption := '42';
        end;
    end;      
end;