TParallel.For Break o.ä?

[Uwe Raabe]

[QUOTE=a.def;1357239]

Zitat:

Ich dachte "0 bis 9" wird aufgeteilt in verschiedene Threads, die dann parallel abgearbeitet werden.

http://www.delphipraxis.net/1357229-post4.html

[a.def]

Naja da muss man nicht viel haben

Delphi-Quellcode:

// geht bei mir gnadenlos in die Hose... (ListBox füllt sich nicht und Programm scheint in einer Endlodschleife zu hängen)
ListBox1.Items.Clear;

TParallel.For(0, 9,
 procedure(i_: Integer)
  begin
   ListBox1.Items.Add(IntToStr(i_));
  end);

// funktioniert selbstverständlich und ohne Probleme
for i_ := 0 to 9 do
 begin
  ListBox1.Items.Add(IntToStr(i_));
 end;

[Uwe Raabe]

Zitat von a.def:

Delphi-Quellcode:

// geht bei mir gnadenlos in die Hose... (ListBox füllt sich nicht und Programm scheint in einer Endlodschleife zu hängen)
ListBox1.Items.Clear;

TParallel.For(0, 9,
 procedure(i_: Integer)
  begin
   ListBox1.Items.Add(IntToStr(i_));
  end);

Natürlich geht das in die Hose! Ein klassisches Beispiel dafür, daß es so wichtig ist, den tatsächlichen Code zu sehen.

Dir ist doch klar, daß das in einem separaten Thread abläuft, davon mehrere gleichzeitig laufen (zumindest mit halbwegs aktuellen Prozessoren) und die VCL nicht threadsicher ist? Zugriffe auf VCL-Objekte aus einem Thread (außer dem Hauptthread) sind mit Synchronize oder Queue zu synchronisieren. Dummerweise macht das in deinem Beispiel die gesamten Vorteile der Parallelverarbeitung zunichte.

[a.def]

In welche Ecke darf ich mich stellen, um mich zu schämen?