TParallel.&For Problem unter Windows

[ich2]

...kleiner Fehler im Quellcode, der jedoch nichts an dem Effekt ändert:

Delphi-Quellcode:

TParallel.&For ( 0, s1-1, procedure ( _zz: Integer )
      var
        _xx, _yy: Integer;
      begin
        for _yy := 0 to s1-1 do
          for _xx := 0 to s1-1 do
            testdata [ zz, yy, xx ] := random;
      end);

sollte natürlich heißen

Delphi-Quellcode:

TParallel.&For ( 0, s1-1, procedure ( _zz: Integer )
      var
        _xx, _yy: Integer;
      begin
        for _yy := 0 to s1-1 do
          for _xx := 0 to s1-1 do
            testdata [ _zz, _yy, _xx ] := random;
      end);