TParallel.For - Liste durchlaufen

[a.def]

Ich möchte jetzt auch endlich mal in den Geschmack von TParallel.For kommen und baue das gerade in ein(e) Demo ein.

Gegeben ist eine TObjectList mit einigen Einträgen. Hinter jedem Eintrag liegt ein Record mit Strings (existierende Dateinamen, erstellt mit FileFiller) und mehr.

Ich gehe diese Liste nun mit einer normalen For-Schleife durch und prüfe bei jedem Eintrag, ob die Datei die im Record steckt in Benutzung ist/exklusiv geöffnet ist.
Wenn ja, wird der Eintrag aus der TObjectList geschmissen. Mit der normalen For-Schleife selbstverständlich kein Problem und schon X-Mal gemacht.

Die TParallel.For jedoch scheint in mehreren Threads (die sie ja scheinbar erstellt), auf dieselben Dateien zuzugreifen und dann kommt natürlich

Zitat:

Im Projekt DemoTParallel.exe ist eine Exception der Klasse EFOpenError mit der Meldung 'Datei E:\Delphi\_FileFillerDumps\XXXXXX.txt kann nicht geöffnet werden.
Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird' aufgetreten.

(XXXX steht für irgendeine Datei, es ist immer eine andere)

Mache ich etwas falsch, habe ich etwas vergessen?
Ich dachte TParallel.For sorgt selbständig dafür, dass die Einträge 0 bis Count-1 auf Threads verteilt werden (0, FaFileList.Count - 1).

[Namenloser]

Zitat von a.def:

Wenn ja, wird der Eintrag aus der TObjectList geschmissen.

Da wird wahrscheinlich das Problem sein. Du darfst die Liste natürlich nicht modifizieren, während du sie mit TParallel durchläufst.

[a.def]

Ich hätte erwähnen sollen, dass das nicht in der TParallel-Schleife passiert sondern später.
Es wird in der TParallel-Schleife nur ein Flag gesetzt, was später ausgewertet wird.
Bis zum Setzen des Flags kommt es aber nicht einmal, da schon vorher die Exception kommt.

Der Debugger sagt, der Fehler liegt in der Zeile in welcher ich prüfe, ob eine Datei in Benutzung ist.
Deswegen denke ich ja, dass TParallel mehrmals auf dieselben Einträge zugreift, was nicht passieren sollte.

[Uwe Raabe]

Ohne Sourcen ist das nur äusserst schwer zu erraten

[a.def]

Ich habe meinen ehrlich gesagt dummen Fehler gerade gefunden.
Ich hatte in meiner Prozedur eine Variable X deklariert, welche ich dann in der TParallel.For-Schleife verwendet habe

[a.def]

Ich habe eine etwas größere Funktion nun auf von For auf TParallel.For umgestellt.

Die Dauer die diese Funktion mit der normalen For-Schleife und sequenzieller Abarbeitung der Liste benötige, belief sich auf etwa 16,8 Minuten im Durchschnitt.
Mit der TParallel.For-Schleife liegt der Durchschnitt bei 6,71 Minuten pro Aufruf.

Hat sich also gelohnt die Arbeit.
Mir sind zwar anfangs die Fehlermeldungen und Memory-Leaks um die Ohren geflogen, aber nach abändern einiger Gefahrenstellen (TInterlock.Add statt Inc usw.) und TThread.Queue (um pro Iteration in eine StringList zu schreiben) sind auch diese nun behoben.

Und da hätte ich auch noch eine hoffentlich abschließende Frage:
muss TThread.Queue zwingend aus einem Thread aufgerufen werden oder kann ich das auch in einer Funktion aufrufen, welche durch meinen Thread aufgerufen wird?

[jaenicke]

Du kannst das an beliebiger Stelle im Kontext des Threads machen. Auch in einer aufgerufenen Funktion in einer anderen Unit.