parallel.async，传递参数线程安全

Question

看看这个（伪）代码

procedure TestASync;
begin
  var lSomeIntf:=TSomeImplementor.Create as ISomeIntf;
  parallel.ASync(
    procedure
    begin
       sleep(1000); // allow the main thread to finish
       MyThreadedProc(lSomeIntf);
    end
  );
  sleep(100); // will finish before sub-thread
end;

这会产生一个竞争条件，因为我发现很难。因为在匿名方法有机会调用MyThreadedPorc 之前，TestASync 已经完成，所以使用nil 接口调用MyThreadedProc。 （这已经比一些随机值好很多了）

Q1：对于简单的非引用计数变量（如整数、双精度等）是否也是如此 - 我强烈怀疑它们可能会更改/返回随机值，因为它们位于在堆栈上。

Q2：如何以简单、干净的方式解决这个问题？

我一直在摆弄IOmniTask 接口和其他方法来启动类似的不受监控的后台线程，但所有这些似乎都使我的代码变得混乱并使源代码难以理解。

也许是这样的？ ：

procedure TestGenericASync;
begin
  var lSomeIntf:=TSomeImplementor.Create as ISomeIntf;
  parallel.ASync<ISomeIntf>(lSomeIntf,
    procedure (const aSomeIntf:ISomeIntf)
    begin
       MyThreadedProc(aSomeIntf);
    end
  );
end;

Answer 1

正如Dalija 建议的那样，您必须使用内联变量声明来解决Delphi bug (RSP-26666)。这些内联变量声明没有被匿名方法正确捕获。

解决方法是不使用内联变量。 （或升级到 RS 10.4 Sydney。）

procedure TestASync;
var lSomeIntf:ISomeIntf; // declaring here works around the bug
begin
  lSomeIntf:=TSomeImplementor.Create as ISomeIntf;
  parallel.ASync(
    procedure
    begin
       sleep(1000); // allow the main thread to finish
       MyThreadedProc(lSomeIntf);
    end
  );
  sleep(100); // will finish before sub-thread
end;