浏览代码

sample updated

Unknown 5 年之前
父节点
当前提交
253ec8a1d2
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      samples/delphi/QuickThreads/BackgroundTasks/RunBackgroundtask.dpr

+ 1 - 0
samples/delphi/QuickThreads/BackgroundTasks/RunBackgroundtask.dpr

@@ -81,6 +81,7 @@ begin
     backgroundtasks.Start;
     backgroundtasks.Start;
     cout('Running tasks in background!',etInfo);
     cout('Running tasks in background!',etInfo);
     ConsoleWaitForEnterKey;
     ConsoleWaitForEnterKey;
+    coutFmt('Task gueue size = %d',[backgroundtasks.TaskQueued],etInfo);
     backgroundtasks.Free;
     backgroundtasks.Free;
     cout('finished tasks!!!!',etInfo);
     cout('finished tasks!!!!',etInfo);
   except
   except