Mainthreadblockingparallelthread?创建一个VCLForms应用程序，在Form上放置一个TButton和一个TMemo，并在按钮的OnClick处理程序中编写此代码：123456789101112131415161718192021222324252627282930uses OtlParallel,OtlTaskControl;procedureTForm2.btnStartLoopClick(Sender:TObject);var starttime:Cardinal; k:Integer;begin mmoTest.Lines.Clear; fork:=1

Mainthreadblockingparallelthread?创建一个VCLForms应用程序，在Form上放置一个TButton和一个TMemo，并在按钮的OnClick处理程序中编写此代码：123456789101112131415161718192021222324252627282930uses OtlParallel,OtlTaskControl;procedureTForm2.btnStartLoopClick(Sender:TObject);var starttime:Cardinal; k:Integer;begin mmoTest.Lines.Clear; fork:=1