XE 7 - Parallel Programming Library

[Der schöne Günther]

Zitat von Dejan Vu:

PS: @mkinzler - kein Code im Link.. noch nicht.

Nein, nicht mehr. Ist in den letzten Minuten wohl aus dem Branch in den Trunk gewandert:

svn://svn.code.sf.net/p/radstudiodemos/code/trunk/Object Pascal/RTL/Parallel Library

Schlau werde ich aus einem Haufen hunderter unkommentierter Zeilen aber spontan auch nicht.

[Dejan Vu]

Im Video hat man kurz gesehen, das aus einer 'Liste' eine parallel abarbeitbare (watn Wort) Enumeration wird. Ähnlich, wie ich das beschrieben habe: Die ForEach-Methode verteilt die Liste an Threads und jeder führt die Action für einzelne Elmente aus. Also irgendwie so jedenfalls. Das Relevante sind aber nur ein paar wenige Zeilen. Edit: Eigentlich nur eine:

TParallel.For (lowerBound, upperBound, Method);
Theoretisch und ginge das (fast so) auch mit Delphi 7, nur ohne anonyme Methoden. Und vielleicht nicht ganz so optimal.

[Sir Rufo]

Also im Code ist das doch sehr schön zu sehen

Delphi-Quellcode:

    if FParallel then
    begin

      // parallele Verarbeitung
      TParallel.For(Low(FOriginalBoard), High(FOriginalBoard),
        procedure (Value: Integer)
        begin
          ProcessCells(nil, Value);
        end);

    end else

      // sequentielle Verarbeitung
      for I := Low(FOriginalBoard) to High(FOriginalBoard) do
        ProcessCells(nil, I);