Changeset 14 for trunk/Platform/Base/UPlatformBase.pas

Timestamp:

Dec 27, 2017, 7:41:26 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Terminate correctly running apps before scheduler stopped.

File:

• trunk/Platform/Base/UPlatformBase.pas (modified) (1 diff)

trunk/Platform/Base/UPlatformBase.pas

@@ -263 +263 @@
 begin
   inherited Stop;
-  for I := 0 to Tasks.Count - 1 do
+  for I := 0 to Tasks.Count - 1 do begin
     TBaseTask(Tasks[I]).Terminated := True;
+    TBaseTask(Tasks[I]).Thread.WaitFor;
+  end;
 end;