TParallel abbrechen

[Stevie]

Mit der Überladung, die beim AIteratorEvent die version mit dem TLoopState übergeben bekommt, kannst du die Schleife abbrechen.
Solltest aber trotzdem innerhalb des Events den übergebenen LoopState überprüfen, denn das Ding läuft auch nach dem abbrechen noch ein bisschen nach.

Also so in etwa:

Delphi-Quellcode:

TParallel.For(1, 100,
  procedure(i: Integer; ls: TParallel.TLoopState)
  begin
    if not ls.Stopped then
    begin
      MachWas;
      if SollAnhalten then
        ls.Stop;
    end;
  end);

Die Möglichkeit, nen CancellationToken zu übergeben wie in .Net wäre sicherlich die schönere Lösung gewesen, aber nunja

Zitat von Dejan Vu:

Dessenungeachtet kann man eine normale For/Foreach-Schleife auch nicht abbrechen.

Häh? Schonmal was von Break gehört?

Ganz naives Beispiel: mit dem TParallel irgendwas in Dateien suchen und die Dateiliste hab ich schon (bitte keine Diskussion, ob man das anders lösen könnte). Und es gibt in der UI einen Abbrechen Knopf. Tjo, nun sollte man wohl das Dingen abbrechen können oder?

[himitsu]

Oder du suchst was in der Liste (oder in den Dateien in der Liste) und wenn es gefunden wurde, dann willst du den (ersten) Listeneintrag wissen, womit die weitere Suche nun beendet werden kann.

OK, Suche in Dateien ist etwas blöd (wenn alles auf dem selben Laufwerk), solange es nicht auch noch eine aufwändige Auswertung der Daten gibt, denn sonst würden sich die Dateizugriffe eh nur gegenseitig ausbremsen, außer bei SSDs, die parallelen Zugriff bieten.

[Dejan Vu]

Zitat von Stevie:

Zitat von Dejan Vu:

Dessenungeachtet kann man eine normale For/Foreach-Schleife auch nicht abbrechen.

Häh? Schonmal was von Break gehört?

Typisches 'Posten, bevor der Kaffee wirkt'.