为什么相同的代码在线程中执行得更快

Question

考虑一下这段非常简单的代码：

uses Diagnostics;
const
  ITER_COUNT = 100000000;
procedure TForm1.btn2Click(Sender: TObject);
var
  val: Double;
  i: Integer;
begin
  sw := TStopwatch.StartNew;
  val := 1;
  for i := 0 to ITER_COUNT - 1 do
  begin
    val := val + i;
    val := val - i;
    val := val * 10;
    val := val / 10;
  end;
  sw.Stop;
  mmo1.Lines.Add(Format('Simple completed in %D ms. Result: %G',
    [sw.ElapsedMilliseconds, val]));
end;

这个简单的循环在我的电脑上执行4027ms。现在，如果我写相同的代码，只使用不同的线程：

procedure TForm1.btn3Click(Sender: TObject);
begin
  sw := TStopwatch.StartNew;
  TThread.CreateAnonymousThread(
    procedure
    var
      val: Double;
      i: Integer;
    begin
      val := 1;
      for i := 0 to ITER_COUNT- 1 do
      begin
        val := val + i;
        val := val - i;
        val := val * 10;
        val := val / 10;
      end;
      sw.Stop;
      TThread.Queue(nil, procedure
        begin
          mmo1.Lines.Add(Format('Async completed in %D ms. Result: %G',
            [sw.ElapsedMilliseconds, val]));
        end);
    end
  ).Start;
end;

这个方法在2910ms中执行，它在不同的线程中执行相同的操作！（在Delphi XE中编译，发布配置处于活动状态）我注意到，无论我有多少次迭代，线程都会有大约25%的增益。为什么会这样？结果不应该是一样的吗？

编辑：经过进一步的调查，我发现这可能是因为Windows7操作系统。在Windows7机器上，主线程中的简单循环执行速度比异步版本慢25%！我甚至尝试过在同一台Windows 7 PC上使用Windows XP模式运行相同的项目，然后两个结果都是相等的——大约3000ms！我在这里完全迷路了。。。Windows 7对主线程做了什么，它的速度变慢了？

Answer 1

确实很奇怪，但可能是因为一些偏移c.q.对齐。

也许匿名线程中的变量是正确对齐的，而另一个则不是。您可以尝试添加一些伪变量以更改为偏移量，或者如果您有Delphi XE2，则尝试一些不同的代码对齐方式。