TParallel for: wie Schleife abbrechen?

[Sir Rufo]

Du musst dir ein zentrales Break selber bauen ...

Delphi-Quellcode:

procedure Foo;
var
  LBreak: Boolean;
  LValue: Integer;
begin
  LBreak := False;
  LValue := 0;
  TParallel.&For( 1, 1000,
      procedure( L: Integer )
    begin
      if not LBreak
      then
        begin
          Inc( LValue );
          LBreak := L = 100;
        end;
    end );
  Writeln( LValue );
end;