Asynchron Dinge sammeln, in bestimmter Zeit

[Glados]

Zitat:

Ist dennoch der falsche Ansatz denke ich. Future ist nicht für sowas gedacht.....

Wäre Future denn für so etwas geeignet?

Delphi-Quellcode:

 aFutureTasks := [TTask.Run(
    procedure
  begin
   Sleep(1000); // Arbeit 1
  end)];

 TTask.WaitForAll(aFutureTasks); // warten, bis alle fertig sind.

Ich verwende für solche Fälle immer eine Boolsche Variable die vor TTask.Run False ist, am Ende von TTask Run True und nach TTask run kommt eine while-Schleife.