Workerthread: Der Diener im Hintergrund

[kalmi01]

Zitat von alzaimar:

Threadpool Version 0.1 fertig zum Testen und im 1.Post verfügbar.

Jau,
und da dab ich auch gleich auf einen Fehler, Prog einfach über Close-Button schliessen:

Delphi-Quellcode:

Destructor TWorkerThreadJobList.Destroy;
Begin
  Clear;
  fJobs.Free;                        <<<  EListError: Listenindex überschreitet Maximum(0)
  CloseHandle(fSemaphore);
End;

Memory-Leak in Zeile 154 der csWorkerThreadPool.pas:

Delphi-Quellcode:

    For i := 0 To L.Count - 1 Do
      TWorkerThreadJob(L[i]).Free;      <<<< hier
    L.Clear;

Memory-Leak in der finalization