TParallel abbrechen

[DSCHUCH]

Hallo, ich habe mir mal ganz oberflächlich TParallel.For angeschaut. Ich habe auf den ersten Blick nicht gefunden, wie ich das beenden kann.

zB ein Algorithmus, welcher eine Terminierung berechnet. Also NP Vollständig. Wenn ein gewisses Ergebnis erreicht wird, betrachte ich dieses als optimal und möchte alle Threads beenden.

http://docwiki.embarcadero.com/Libra...stem.Threading

Daniel.

[Sir Rufo]

Zum Unterbrechen ist da AFAIK nichts vorgesehen, denn das wird aufgerufen und es geht erst dann weiter, wenn alles durchgeackert ist.

Aber es sollte ja kein Problem sein hier ein zentrale Instanz zu übergeben, die dann sagt, es ist genug und dann hören einfach alle auf (abfragen) :)

[DSCHUCH]

Das heißt aber, es würde die Proceduren trotzdem aufrufen, nur das ein Exit am Beginn steht, korrekt?

Ok, also habe ich nichts übersehen wie TParallel.Break oder sowas.

LoopState, LoopResult sowie dieses Iteratorevent muß ich mal nachrecherchieren, dachte evtl geht es damit. Ist auch nur eine hypothetische Frage.

Thx, Daniel.

[Dejan Vu]

Du wirst wohl kaum parallel durch endlose Reihen von Einträgen laufen, also ist die Anzahl der Einträge, die mit TParallel.For durchlaufen werden, immer übersichtlich. Wenn also hier jeder Aufruf sofort terminiert, geht das doch schnell.

Was jetzt noch sein könnte, das man durch geschickte Programmierung den Enumerator selbst so konzipiert, das er während des Aufzählens neue Elemente erzeugt. Aber auch hier kann man ggf. abbrechen, d.h. einfach keine neuen Elemente erzeugen.

Ich glaube also, das es sich hierbei um ein eher theoretisches Problem handelt. Dessenungeachtet kann man eine normale For/Foreach-Schleife auch nicht abbrechen.

Hast Du ein konkretes Beispiel, anhand dessen man die Problematik erkennen kann oder sind das nur theoretische Überlegungen?

[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:

Zitat von Dejan Vu (Beitrag 1273438)

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

Häh? Schonmal was von

Delphi-Quellcode:

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:

Zitat von Stevie (Beitrag 1273439)

Zitat:

Zitat von Dejan Vu (Beitrag 1273438)

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

Häh? Schonmal was von

Delphi-Quellcode:

Break

gehört? ;)

Typisches 'Posten, bevor der Kaffee wirkt'. :oops: