TParallel for: wie Schleife abbrechen?

[Sir Rufo]

Ja, da gibt es doch ein Break (mir war doch auch so )

Delphi-Quellcode:

procedure Foo;
var
  LValue: Integer;
begin
  LValue := 0;
  TParallel.&For( 1, 1000,
      procedure( L: Integer; S: TParallel.TLoopState )
    begin
      if not S.ShouldExit
      then
        begin
          Inc( LValue );
          if L = 500
          then
            S.Break;
        end;
    end );
  Writeln( LValue );
end;

Da wird auf jeden Fall früher abgebrochen, allerdings laufen ein paar Tasks noch durch die Schleife. Sieht man schön, wenn man das ausführt

Delphi-Quellcode:

procedure Foo;
var
  LValue: Integer;
begin
  LValue := 0;
  TParallel.&For( 1, 1000,
      procedure( L: Integer; S: TParallel.TLoopState )
    begin
//      if not S.ShouldExit
//      then
//        begin
          Inc( LValue );
          if L = 500
          then
            S.Break;
//        end;
    end );
  Writeln( LValue );
end;

Bei mir kommt dann regelmäßig 529 heraus.