Hi
- Ich würde noch FreeOnTerminate bei den Threads setzen (und sie dann entsprechend beenden)
- Zum Starten eines Threads einfach start verwenden. Resume war dazu gedacht, einen von extern angehaltenen Thread wieder von extern zum laufen zu bringen (was fast immer keine gute Idee ist, daher inzwischen Deprecated).

Ich würde dem Thread einfach einen eigenen Konstruktor spendieren, der einen Record mit den Daten übergeben bekommt. Dann brauchst du in der Schleife auch nicht alles neu setzen...

zusammenfalten · markieren

Delphi-Quellcode:

      //KWs und Daten zu KWs errechnen
      RowsWeeks := Logic.GetWeekDates(fVonDate, fBisDate);
      //Threads erstellen
      RowData.fMaschinenId := fMaschinenId;
      RowData.SG_Name := fSG_Name;
      RowData.MaschinenId := fMaschinenId;
      RowData.WritewLeistungSingleRows := fWriteSingleResults;
      for I := 0 to Length(RowsWeeks[0]) -1 do
      begin
        RowData.VonDate := StrToDate(RowsWeeks[1, I]);
        RowData.BisDate := StrToDate(RowsWeeks[2, I]);
        MywLeistungThreads[I] := TMyThread_Actually_wLeistung_MT.Create(RowData); // im inherited des Konstruktors dann false, damit er gleich losrennt
      end;

Hier könnte aber auch eine simple parallel for Schleife reichen...

RowsWeeks und fRows_wLeistung sind irgendwelche Grifs, oder sonstwelche GUI-Komponenten?

Warum wird da ungesichert im Thread drauf zugegriffen?

Wenn auf fRows_wLeistung aus unterschiedlichen Threads zugegriffen wird, muss der Zugriff gegeneinander geschützt werden.
System.SyncObjs.TCriticalSection

Wenn es eine GUI-Komponente (z.B. Grid) ist, dann wird die CriticalSection nicht viel helfen.

So wie fRows_wLeistung verwendet wird, ist es vermutlich als Array in TMyThread_Actually_wLeistung_Main deklariert.
Wahrscheinlich wird das Ergebnis dort mit WriteRowsResult() durch die einzelnen SubThreads TMyThread_Actually_wLeistung_MT abgelegt.